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

Private Sub Command1_Click()
If Option1.Value = True Then Text1 = "Indonesia"
If Option2.Value = True Then Text1 = "Malaysia"
If Option3.Value = True Then Text1 = "Singapura"
End Sub

Private Sub Command1_Click()
Text3 = Val(Text1) + Val(Text2)
End Sub

Private Sub Command2_Click()
Text3 = Text1 - Text2
End Sub

Private Sub Command3_Click()
Text3 = Text1 / Text2
End Sub

Private Sub Command4_Click()
Text3 = Text1 * Text2
End Sub