Flytte ting, som label, vandret...

I labels egenskaber sætter du DragMode = 1 - Automatic

I formen indsættes:
Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
  Source.Move X
End Sub

Når du trækker vil label'ens omrids flytte sig overalt, men når du slipper vil den kun blive flyttet vandret.

/tjacob

'Indset en Label1 på en Form1

Private IX, FX, IY, FY  As Integer 'Her kan du også fjærne IY, FY

Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
  IX = x
  'IY = y
  FX = Label1.Left
  'FY = Label1.Top
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
  If Button = 1 Then
    Label1.Move FX + (x - IX) ', FY + (y - IY)
    FX = Label1.Left
    'FY = Label1.Top
  End If
End Sub