Public Class Form1

    Dim many As Integer = 5
    Dim Idlist() As Integer = {0, 10, 11, 12, 13, 14}
    Dim Fnlist() As String = {"", "Trevor", "Kevin", "Zack", "Mark", "Joe"}
    Dim Lnlist() As String = {"", "Rausch", "Antal", "Devine", "Bernstein", "Angellia"}
    Dim ratelist() As Double = {0.0, 10.0, 15.0, 5.0, 30.0, 20.0}


    Private Sub BIDSort_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BIDSort.Click

    End Sub

    Private Sub BDisplay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BDisplay.Click
        ' display all 4 arrays
        '//// Report the payroll amounts
        ' First, show a title.
        Me.ListBox1.Items.Clear()
        say("  ---- List of id, etc ----")

        'Now, show each line.
        Dim j As Integer        'Loop index
        For j = 1 To many
            say(j)
            Call showEmpPay(Idlist(j), Lnlist(j), Fnlist(j), ratelist(j))
        Next
    End Sub
    Sub showEmpPay(ByVal id As Integer, ByVal h As String, ByVal k As String, ByVal r As Double)
        ' Display one line for this emp.
        Dim s As String
        s = "   "
        s &= id
        s &= "  "
        s &= h
        s &= "  "
        s &= k
        s &= "  "
        s &= r
        say(s)
    End Sub
    '//////// OUTPUT METHODS ////////
    Sub say(ByVal s As String)      'Display output (in stub area).
        Me.ListBox1.Items.Add(s)
    End Sub

    Private Sub BExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BExit.Click
        Me.Close()
    End Sub
End Class