KeyPress events - any way to press keys simultaneously?

[Jamie_Dowd]

Private Sub picShip_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case Asc("n") 'left
If picShip.Left > 75 Then
picShip.Move (picShip.Left - 75)
End If
Case Asc("m") 'right
If (picShip.Left + picShip.Width) < (frmMain.Width - 75) Then
picShip.Move (picShip.Left + 75)
End If
Case Asc("z") 'shoot
shpBullet.Move (picShip.Left + (picShip.Width / 2)), picShip.Top
shpBullet.Visible = True
Dim shot As clsShootBullet
Set shot = New clsShootBullet

End Select
End Sub

I want to be able to shoot and move left at the same time for example.