Visual Basic

Class MyObjectComparer Inherits IComparer

   Public Function Compare(A as Object, B as Object)
      Return String.Compare(DirectCast(A, MyClass).SomeProperty, DirectCast(B, MyClass).SomeProperty)
   End Function

End Class

Dim comparer as new MyObjectComparer()<br />
Array.Sort(TheArray, comparer)

Public Class Form1
    Private OpenForm As Form2
 
    Private Sub Button1_Click(blah, blah) Handles Button1.Click
        If OpenForm Is Nothing Then
            OpenForm = New Form2
            AddHandler OpenForm.FormClosing, AddressOf OpenForm_FormClosing
            OpenForm.Show()
        End If
    End Sub
 
    Private Sub OpenForm_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs)
        RemoveHandler OpenForm.FormClosing, AddressOf OpenForm_FormClosing
        '
        ' Get any data you need from the form here...
        '
        OpenForm = Nothing
    End Sub
End Class