From pengisian KRS

Dim i As Byte
Dim mk(13) As String
Private Sub cmdAmbil_Click()
i = Lstsource.ListIndex
LstDest.AddItem Lstsource.List(i)
Lstsource.Text = ""
End Sub
Private Sub cmdAmbilAll_Click()
mk(0) = "Algoritma Pemrograman"
mk(2) = "Paket Aplikasi 1"
mk(1) = "Pemrograman I"
mk(2) = "Paket Aplikasi 1"
mk(3) = "Organisasi Komputer"
mk(4) = "Pancasila"
mk(5) = "kalkulus 1"
mk(6) = "Fisika 1"
mk(7) = "Arsitektur Komputer"
mk(8) = "Pengantar Teknologi Informasi"
mk(9) = "Struktur Data"
mk(10) = "Paket Aplikasi 2"
mk(11) = "Pemrograman 2"
mk(12) = "kalkulus 2"
mk(13) = "Fisika 2"
LstDest.Clear
For i = 0 To 13
LstDest.AddItem mk(i)
Next
End Sub
Private Sub cmdBatal_Click()
i = LstDest.ListIndex
LstDest.Text = ""
LstDest.List(i) = ""
End Sub
Private Sub cmdBatalAll_Click()
LstDest.Clear
End Sub
Private Sub Form_Load()
mk(0) = "Algoritma Pemrograman"
mk(2) = "Paket Aplikasi 1"
mk(1) = "Pemrograman I"
mk(2) = "Paket Aplikasi 1"
mk(3) = "Organisasi Komputer"
mk(4) = "Pancasila"
mk(5) = "kalkulus 1"
mk(6) = "Fisika 1"
mk(7) = "Arsitektur Komputer"
mk(8) = "Pengantar Teknologi Informasi"
mk(9) = "Struktur Data"
mk(10) = "Paket Aplikasi 2"
mk(11) = "Pemrograman 2"
mk(12) = "kalkulus 2"
mk(13) = "Fisika 2"
Lstsource.Clear
For i = 0 To 13
Lstsource.AddItem mk(i)
Next
End Sub