Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
        Picture1.Move X, Y 'mover el control Picture1 (X e Y indican la posicion del mouse en el Form)

    End If
End Sub

'Que la nave no pase del FORMULARIO

If imgnave.Left > 500 Then
    imgnave.Left = 490
End If

If imgnave.Left < 0 Then
    imgnave.Left = 10
End If
If imgnave.Top > 425 Then
    imgnave.Top = 420
End If
If imgnave.Top < 0 Then
    imgnave.Top = 10
End If