Baik program ini menggunakan fasilitas pencarian yang sangat bagus, simpel dan cepat, silahkan dicoba dan semoga bermanfaat bagi anda, hokey.....
>>Download Program
Private Sub CmdAtas_Click()
Timer1.Tag = "atas"
End Sub
Private Sub CmdBawah_Click()
Timer1.Tag = "bawah"
End Sub
Private Sub CmdKanan_Click()
Timer1.Tag = "kanan"
End Sub
Private Sub CmdKiri_Click()
Timer1.Tag = "kiri"
End Sub
Private Sub CmdStop_Click()
Timer1.Tag = "meneng"
End Sub
Private Sub kapal_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyLeft Then Timer1.Tag = "kiri"
If KeyCode = vbKeyRight Then Timer1.Tag = "kanan"
If KeyCode = vbKeyDown Then Timer1.Tag = "bawah"
If KeyCode = vbKeyUp Then Timer1.Tag = "atas"
If KeyCode = vbKeyReturn Then Timer1.Tag = "meneng"
End Sub
Private Sub Timer1_Timer()
If Timer1.Tag = "kiri" Then kapal.Left = kapal.Left - 100
If Timer1.Tag = "kanan" Then kapal.Left = kapal.Left + 100
If Timer1.Tag = "atas" Then kapal.Top = kapal.Top - 100
If Timer1.Tag = "bawah" Then kapal.Top = kapal.Top + 100
End Sub
Private Sub CmdMasuk_Click()
List1.AddItem Text1
Text1 = ""
Text1.SetFocus
End Sub
Private Sub CmdKosong_Click()
List1.Clear
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then CmdMasuk_Click
End Sub
Private Sub Command1_Click()
Text1 = ""
If Check1.Value = 1 Then Text1 = Text1 + " Apel"
If Check2.Value = 1 Then Text1 = Text1 + " Nanas"
If Check3.Value = 1 Then Text1 = Text1 + " Jeruk"
End Sub
