Public Class Form1
    Dim player1 As New Persons.Players
    Dim player2 As New Persons.Players

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        With player1
            .FirstName = "Wyrm"
            .LastName = "Garcia"
            .Number = 13
            .Position = "Shortstop"
        End With
        With player2
            .FirstName = "Joe"
            .LastName = "Black"
            .Number = 51
            .Position = "Catcher"
        End With

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MsgBox(player1.Position & " " & player1.FullName & ", #" & _
  CStr(player1.Number) & " is now at bat.")

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        MsgBox(player2.Position & " " & player2.FullName & ", #" & _
  CStr(player2.Number) & " is on deck.")

    End Sub
End Class