Form Array Dimensi I

1. Design form dibawah ini dengan nama form array, gunakan label, listbox,  dan button pada toolbox

Listing Code : 

Dim nama(10) As String
Dim nilai(5, 5) As Byte
Dim r As Byte
Dim m As Byte
Dim w As Byte
Dim i As Byte

Private Sub bclear_Click()
Dim ctrl As Control
For Each ctrl In Me
    If TypeName(ctrl) = "ListBox" Then
        ctrl.Clear
    End If
Next
End Sub

Private Sub bexit_Click()
End
End Sub

Private Sub bmulti_Click()
List1.Clear
w = InputBox("Masukan Jumlah Baris", "Input Baris", 0)
i = InputBox("Masukan Jumlah Kolom", "Input Baris", 0)
For r = 1 To w
    For m = 1 To i
        nilai(r, m) = InputBox("Nilai Pada (" + Str(r) + "," + Str(m) + ")", _
        "Input Nilai Matrik", 0)
    Next
Next

For r = 1 To w
    For m = 1 To i
        List1.AddItem "Nilai(" + Str(r) + "," + Str(m) + ")=" + Str(nilai(r, m))
    Next
Next
End Sub

Private Sub bsatu_Click()
List1.Clear
m = InputBox("Masukan Jumlah Data Teman Anda", "Input Jumlah Data", 0)
    For r = 1 To m
        nama(r) = InputBox("Masukan nama teman anda yang ke- " + Str(r), _
        "Input Jumlah Data", "Nama")
    Next
    
    For r = 1 To m
        List1.AddItem UCase(nama(r))
    Next r
End Sub

Private Sub Timer1_Timer()
ljam.Caption = Time
ltanggal.Caption = Format(Date, "dddd, dd-mmmm-yyyy")
End Sub


Private Sub Timer2_Timer()
If Label1.Caption = "ARRAY DIMENSI SATU" Then
    Label1.Caption = "ARRAY MULTI DIMENSI"
    Label1.ForeColor = vbRed
Else
    Label1.Caption = "ARRAY DIMENSI SATU"
    Label1.ForeColor = vbBlue
End If
End Sub