Diklogi

Kode programnya :

Dim warna(5) As String

Private Sub Command1_Click()
mycol = t_warna.Text
x = t_index.Text
warna(x) = mycol

lb_hasil.Caption = ""
For i = 1 To 5
    lb_hasil.Caption = lb_hasil.Caption + warna(i)
Next
End Sub

Private Sub Command2_Click()
MDIForm_array.Show
Unload Me
End Sub

Salam ilmu pengetahuan ^^