Hallo was ist hier flasch die form haut einfach hab ins nix wenn ich auf die form klicke
-- Form --
-- Modul --
-- Form --
Code:
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button Then
Form1.Left = Form1.Left + (X - HitMPos.pX) * 15
Form1.Top = Form1.Top + (Y - HitMPos.pY) * 15
End If
End Sub
-- Modul --
Code:
Public Type Point_Type
pX As Long
pY As Long
End Type
Public HitMPos As Point_Type