drag and drop uden firkant

Du kan ikke fjerne "firkanten" når du dragger, men med nedenstående kode kan du flytte label'en dynamisk.

Private Sub Form_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
  Label1.Top = Y
  Label1.Left = X
End Sub

Private Sub Label1_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
  Label1.Top = Label1.Top + Y
  Label1.Left = Label1.Left + X
End Sub

-Sion

kan  ikke bruge!