Page 60 - Programming VB.NET
P. 60

56                                      Chapter 5: Arrays



                   Private Sub btntwo_Click(ByVal sender As
                   System.Object, ByVal e As System.EventArgs)
                   Handles Button2.Click

                           Dim msg(1, 1) As String

                           Dim i, j As Integer

                           msg(0, 0) = "Visual Programming"

                           msg(0, 1) = "Java"
                           msg(1, 0) = "Web"

                           msg(1, 1) = "C++"

                           For i = 0 To 1

                               For j = 0 To 1

                                   lstoutput.Items.Add(msg(i,
                   j))

                               Next j

                           Next i

                       End Sub
   55   56   57   58   59   60   61   62   63   64   65