Visual Basic

Option Explicit

Dim Abort As Boolean  

Private Sub UserForm_Activate()
    Abort = False
    ' Set the width of the progress bar to 0.
    Progress.LabelProgress.Width = 0
    Application.ScreenUpdating = False
    DoEvents
    If (bRockwellPhases And Not Abort) Then
        Call generateRockwellPhases
    End If
    Hide
End Sub
        
Sub UpdateProgressBar(PctDone As Single)
        ... 
End Sub

Sub setAbort()
    Abort = True
End Sub

<br />
    Private Sub TabLayout_TabIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TabLayout.TabIndexChanged<br />
<br />
        'This message never shows up. This control resides in Panel2<br />
        MsgBox("Here")<br />
    End Sub<br />

<br />
    Private Sub Form2_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load<br />
        Call LoadTags()<br />
    End Sub<br />

<br />
<br />
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click<br />
<br />
   'I reload it when any new entry takes a place in database<br />
<br />
    Call LoadTags()<br />
<br />
    End Sub<br />

<br />
Private Sub LoadTags()<br />
<br />
        Dim mySelectQuery As String = "SELECT * FROM Tags"<br />
        Dim myconnection As New OleDbConnection(SQLConnStr)<br />
        Dim myCommand As New OleDbCommand(mySelectQuery, myconnection)<br />
<br />
        myconnection.Open()<br />
<br />
        Dim myReader As OleDbDataReader = myCommand.ExecuteReader<br />
<br />
        If myReader.HasRows = False Then<br />
            myReader.Close()<br />
            myconnection.Close()<br />
            Exit Sub<br />
        End If<br />
<br />
        ListView1.Items.Clear()<br />
<br />
        While myReader.Read<br />
<br />
            ListView1.Items.Add(myReader.GetValue(0).ToString)<br />
            Dim TACC As Int32 = ListView1.Items.Count - 1<br />
<br />
            ListView1.Items(TACC).SubItems.Add(Trim(myReader.GetValue(1).ToString))<br />
<br />
        End While<br />
<br />
        myReader.Close()<br />
        myconnection.Close()<br />
<br />
<br />
        If ListView1.Items.Count > 1 Then<br />
           'The error occurs here!<br />
            ListView1.ListViewItemSorter = New ListViewItemComparer(1)<br />
            ListView1.Sort()<br />
        End If<br />
<br />

<br />
Public Class ListViewItemComparer<br />
    Implements IComparer<br />
    Private col As Integer<br />
<br />
    Public Sub New()<br />
        col = 0<br />
    End Sub<br />
<br />
    Public Sub New(ByVal column As Integer)<br />
        col = column<br />
    End Sub<br />
<br />
    Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer _<br />
                            Implements System.Collections.IComparer.Compare<br />
        Dim returnVal As Integer = -1<br />
        returnVal = [String].Compare(CType(x, _<br />
                        ListViewItem).SubItems(col).Text, _<br />
                        CType(y, ListViewItem).SubItems(col).Text)<br />
        Return returnVal<br />
    End Function<br />
<br />
<br />
End Class<br />