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 , 15 mal gelesen