Visual Basic

Private Sub MyApplication_Startup(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) Handles Me.Startup
            'If the current date is greater than or equal to the Expiration date, then the program will not open.
            If CInt(Now.Date.ToString("yyyyMMdd")) >= gblintExpireDate Then
                MessageBox.Show(My.Application.Info.ProductName & " has expired.", My.Application.Info.ProductName)
                e.Cancel = True
            End If
End Sub

Private Sub Sort2DArray(ByVal TwoD_Arr(,) As Double)
    '
    Dim Tmp_Arr(0, 1) As Double
    Dim upperInd As Integer
    Dim lowerInd As Integer
    '
    For upperInd = 0 To TwoD_Arr.GetLength(0) - 1
        '
        For lowerInd = (upperInd + 1) To TwoD_Arr.GetLength(0) - 1
            '
            If (TwoD_Arr(lowerInd, 0) > TwoD_Arr(upperInd, 0)) Then
                '
                Tmp_Arr(0, 0) = TwoD_Arr(lowerInd, 0)
                Tmp_Arr(0, 1) = TwoD_Arr(lowerInd, 1)
                '
                TwoD_Arr(lowerInd, 0) = TwoD_Arr(upperInd, 0)
                TwoD_Arr(lowerInd, 1) = TwoD_Arr(upperInd, 1)
                '
                TwoD_Arr(upperInd, 0) = Tmp_Arr(0, 0)
                TwoD_Arr(upperInd, 1) = Tmp_Arr(0, 1)
            End If
            '
        Next
        '
    Next
    '
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Dim TwoD_Arr(,) As Double = {{5, 1}, {6, 2}, {3, 3}, {8, 4}, {2, 5}}

    Dim i As Integer
    Dim j As Integer

    For i = 0 To TwoD_Arr.GetLength(0) - 1
        Debug.WriteLine("UnSorted: " & TwoD_Arr(i, 0) & " " & TwoD_Arr(i, 1))
    Next

    Sort2DArray(TwoD_Arr)

    For j = 0 To TwoD_Arr.GetLength(0) - 1
        Debug.WriteLine("Sorted: " & TwoD_Arr(j, 0) & " " & TwoD_Arr(j, 1))
    Next

End Sub