Hej jeg gir 200 up til den der har et svar til mit Spørsmål
Jeg har prøvet og prøvet men kan ikke finde ud af hvordan man laver en knap der gør man kan trække vinduet rundt.
MVH
Mikkel A. Andersen
Dim xm As Single
Dim ym As Single
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
xm = X
ym = Y
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Form1.Left = Form1.Left + X - xm
Form1.Top = Form1.Top + Y - ym
End If