Key+Control

Dim xMove As Integer Dim yMove As Integer Dim xMoveGhost As Integer = 5 Dim yMoveGhost As Integer = 5

////////////////////////////////////////////////////////////////

Private Sub frmLevel3_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown xMove = 0 yMove = 0 If e.KeyCode = Keys.Left Then xMove = -5 ElseIf e.KeyCode = Keys.Right Then xMove = 5 ElseIf e.KeyCode = Keys.Up Then yMove = -5 ElseIf e.KeyCode = Keys.Down Then yMove = 5 End If End Sub