Private Sub lstTransactions_RowPopulating(ByVal e As MicroFour.StrataFrame.UI.Windows.Forms.RowPopulatingEventArgs) Handles lstTransactions.RowPopulating
        Using loBO As bizTransaction = DirectCast(e.BusinessObject, bizTransaction)
            e.UseGroup = True
            e.GroupHeaderText = MicroFour.StrataFrame.Tools.Common.GetEnumDisplayValue(loBO.TransactionType)
            e.ImageKey = loBO.TransactionType.ToString
 
            Select Case loBO.TransactionType
                Case Business.Enumerations.TransactionType.CarrierDeactivation
                    e.RowBackColor = Color.Yellow
                    Me.lblDeactivated.Text = "*** This card has been Deactivated ***"
                    Me.lblDeactivated.Visible = True
                    My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Exclamation)
 
                Case Business.Enumerations.TransactionType.FirstUseImport
                    e.RowBackColor = Color.Yellow
                    Me.lblDeactivated.Text = "*** This card has been Used ***"
                    Me.lblDeactivated.Visible = True
                    My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Exclamation)
            End Select
        End Using
    End Sub