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