Here is the simple code to move ur player in four directions ok...... Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyUp Then Shape1.Top = Shape1.Top - 250 end if If KeyCode = vbKeyDown Then Shape1.Top = Shape1.Top + 250 end if If KeyCode = vbKeyRight Then Shape1.Left = Shape1.Left + 250 end if If KeyCode = vbKeyLeft Then Shape1.Left = Shape1.Left - 250 end if End Sub U can also take any thing insted of shape1 like image or label ok hope that it helps and 250 is the speed of ur player ok..... Bye Bye take care Manku-D
Nothing to Say.
|