Hallo, versuch´s mal hiermit.
Option Explicit
Dim XLbl As Single, YLbl As Single
Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
Source.Move X - XLbl, Y - YLbl
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.BorderStyle = 0
End Sub
Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Drag vbBeginDrag
XLbl = X
YLbl = Y
End Sub
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.BorderStyle = 1
Label1.MousePointer = 5
End Sub
geschrieben von
wincnc
,
13.03.2006, 17:46 Uhr
, 13 mal gelesen