Public Class Form1
Dim player(50, 1) As String
Dim arrayrow As Integer
Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
If txtName.Text = "" Or txtNumber.Text = "" Then
MsgBox("Please enter NAME and NUMBER")
Else
player(arrayrow, 0) = txtName.Text
player(arrayrow, 1) = txtNumber.Text
txtName.Text = ""
txtNumber.Text = ""
arrayrow = arrayrow + 1
txtName.Focus()
End If
End Sub
Private Sub btnShowTeam_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnShowTeam.Click
arrayrow = 0
For arrayrow As Integer = 0 To 50
If Not player(arrayrow, 0) = "" Then
lstTeam.Items.Add(player(arrayrow, 0) & " | " & player(arrayrow, 1))
End If
Next
End Sub
End Class
