Visual Basic

contacts.Sort(ContactsList.SortContactAscending())

Public Class ContactsList
        Implements IComparable

        Public Property FID As String
        Public Property FCHECK As Boolean
        Public Property FCUSTNO As String
        Public Property FCOMPANY As String
        Public Property FCONTACT As String
        Public Property FEMAIL As String

        // This satisfies IComparable
        Public Function CompareTo(obj As Object) As Integer Implements IComparable.CompareTo
            Return FCONTACT.CompareTo(obj)
        End Function

        Public Shared Function SortContactAscending() As IComparer

            Return CType(New SortContactAscendingHelper(), IComparer)

        End Function

        Public Shared Function SortContactDescending() As IComparer

            Return CType(New SortContactDescendingHelper(), IComparer)

        End Function        

        Private Class SortContactAscendingHelper : Implements IComparer

            Function Compare(ByVal a As Object, ByVal b As Object) As Integer Implements IComparer.Compare

                Dim c1 As ContactsList = CType(a, ContactsList)
                Dim c2 As ContactsList = CType(b, ContactsList)

                Return String.Compare(c1.FCONTACT, c2.FEMAIL)

            End Function

        End Class

        Private Class SortContactDescendingHelper : Implements IComparer

            Function Compare(ByVal a As Object, ByVal b As Object) As Integer Implements IComparer.Compare

                Dim c1 As ContactsList = CType(a, ContactsList)
                Dim c2 As ContactsList = CType(b, ContactsList)

                Return String.Compare(c2.FEMAIL, c1.FCONTACT)

            End Function

        End Class

    End Class

Dim mySearcher As DirectorySearcher = New DirectorySearcher(enTry)
       mySearcher.PropertiesToLoad.Add("dNSHostName")
       mySearcher.PropertiesToLoad.Add("operatingSystem")
       mySearcher.PropertiesToLoad.Add("operatingSystemVersion")
       mySearcher.Filter = "(&(objectClass=computer)(operatingSystem=*server*))" '("(objectClass=computer)")

       Dim resEnt As SearchResult
       For Each resEnt In mySearcher.FindAll()
           Select Case dMain
               Case "v06"
                   Try

                       hostName = GetProperty(resEnt, "dNSHostName")
                       OSystem = GetProperty(resEnt, "operatingSystem")
                       Dim result1 As Net.NetworkInformation.PingReply = ping.Send(hostName, 1000)
                       If result1.Status = Net.NetworkInformation.IPStatus.Success Then
                           Dim row2 As String() = New String() {hostName, "N/A", OSystem}
                           dgvLocal.Rows.Add(row2)
                       Else
                           My.Computer.FileSystem.WriteAllText("C:\ExodusErrorLog.txt", hostName & " - Device is not pingable!" & vbCrLf & vbCrLf, True)
                       End If
                   Catch ex As Exception
                       My.Computer.FileSystem.WriteAllText("C:\ExodusErrorLog.txt", hostName & " - " & ex.Message & vbCrLf & vbCrLf, True)
                   End Try
               Case "v07.med.va.gov"
           End Select
       Next

Public Class Form1

    Dim Number1 As Integer
    Dim Number2 As Integer

    Dim Thread1 As System.Threading.Thread
    Dim Thread2 As System.Threading.Thread

    Private Delegate Sub UpdateLabel1Delegate(ByVal Number1 As Integer)
    Private Delegate Sub UpdateLabel2Delegate(ByVal Number2 As Integer)

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Thread1 = New System.Threading.Thread(AddressOf CountUp)
        Thread1.Start()
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Thread2 = New System.Threading.Thread(AddressOf CountDown)
        Thread2.Start()
    End Sub

    Private Sub CountUp()
        Do Until Number1 = 1000
            Number1 = Number1 + 1
            UpdateLabel1Text(Number1)
        Loop
    End Sub 'CountUp

    Private Sub CountDown()
        Number2 = 1000
        Do Until Number2 = 0
            Number2 = Number2 - 1
            UpdateLabel2Text(Number2)
        Loop
    End Sub 'CountDown

    Private Sub UpdateLabel1Text(ByVal Number1 As Integer)
        If Label1.InvokeRequired Then
            ' This is a cross-thread call, so
            ' invoke a call back to this method.
            Me.BeginInvoke(New UpdateLabel1Delegate(AddressOf UpdateLabel1Text), Number1)
        Else
            ' We're being called on the UI thread, so just update the label.
            Label1.Text = Number1
            Me.Refresh()
        End If
    End Sub

    Private Sub UpdateLabel2Text(ByVal Number2 As Integer)
        If Label2.InvokeRequired Then
            ' This is a cross-thread call, so
            ' invoke a call back to this method.
            Me.BeginInvoke(New UpdateLabel2Delegate(AddressOf UpdateLabel2Text), Number2)
        Else
            ' We're being called on the UI thread, so just update the label.
            Label2.Text = Number2
            Me.Refresh()
        End If
    End Sub

End Class