Perulangan For Next Visual Basic 6

Postingan ini Merupakan Penerapan dari Postingan Sebelumnya Disini Buatlah Form Seperti Gambar dibawah ini.

Form Load (Ketika Aplikasi Dijalankan ini yg akan dilakukan pertama kali)

Private Sub Form_Load()
List1.Clear

End Sub

Script ini Untuk Tombol Proses

Private Sub Command1_Click()

Dim Entry, I, Msg, Pesan
Msg = "Tekan OK untuk Memasukan 15 data."
MsgBox Msg, , "Tekan OK Yah... ^_^ "

For I = 1 To 15
    Entry = " Data Ke " & I
    List1.AddItem Entry
Next I

End Sub

Ini Untuk Tombol Hapus

Private Sub Command2_Click()

List1.Clear

End Sub

Untuk Tombol Keluar

Private Sub Command3_Click()
MsgBox ("Anda Yakin Ingin Keluar ??"), vbOKOnly, "Pemberitahuan ^_^"

End
End Sub