Public Class Form1
    Sub say(ByVal s As String)
        Me.ListBox1.Items.Add(s)

    End Sub
    Sub clearout()
        Me.ListBox1.Items.Clear()


    End Sub






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

    End Sub

    Private Sub B1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B1.Click
        'Display the first instruction
        Dim s As String = "Go to school"
        'input: none
        'Processing: none
        'output: Sisplay the string

        'Me.ListBox1.Text = s
        Call say(s)
    End Sub

    Private Sub B2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B2.Click
        'Display the first instruction
        Dim s As String = "Put on your shoes"
        'input: none
        'Processing: none
        'output: Sisplay the string

        'Me.ListBox1.Text = s
        Call say(s)
    End Sub

    Private Sub Bclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bclear.Click
        Call clearout()
    End Sub

    Private Sub B3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B3.Click
        Call say("Wake up")

    End Sub

    Private Sub B4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B4.Click
        Call say("Sit down")
    End Sub

    Private Sub B5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B5.Click
        Call say("Put on your socks")
    End Sub

    Private Sub B6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B6.Click
        Call say("Fly a spaceship")
    End Sub

    Private Sub B7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B7.Click
        Call say("stand up")
    End Sub

    Private Sub B8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B8.Click
        'compute the total
        Dim a, b, total As Integer



    End Sub
End Class