vb控制斜上方移动

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = 37 Then
plane.Left = plane.Left - 100
End If
If KeyCode = 38 Then
plane.Top = plane.Top - 100
End If
If KeyCode = 39 Then
plane.Left = plane.Left + 100
End If
If KeyCode = 40 Then
plane.Top = plane.Top + 100
End If

End Sub

 

 

我想控制斜上方移动怎么办？

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = 37 Then
plane.Left = plane.Left - 100
End If

定义按Ctrl+左  为斜上方

If KeyCode = 37 and (Shift and vbctrlmask >0) Then
plane.Left = plane.Left - 100

plane.Top = plane.Top - 100
End If

If KeyCode = 38 Then
plane.Top = plane.Top - 100
End If
If KeyCode = 39 Then
plane.Left = plane.Left + 100
End If
If KeyCode = 40 Then
plane.Top = plane.Top + 100
End If

End Sub