Dim abstand
Dim gesamt

Private Sub Form_Load()
    'Abstand der beiden Objekte errechnen
    abstand = Text2.Left - (Text1.Left + Text1.Width)
    'Gesamtlänge der beiden Objekte errechnen
    gesamt = Text1.Width + abstand + Text2.Width
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y _
  As Single)
        'Wenn sich Mauszeiger zwischen den beiden
        'Objekten befindet, dann umschalten auf Doppelpfeil
        If X >= Text1.Left + Text1.Width _
        And X <= Text2.Left _
        And Y <= Text1.Top + Text1.Height _
        And Y >= Text1.Top Then
            Form1.MousePointer = 9
        Else
            Form1.MousePointer = 0
        End If
 
        'Bei gedrückter linker Maustaste die Größen der
        'beiden Objekte verändern
        If Button = 1 Then
            Text1.Width = X - Text1.Left
            Text2.Left = Text1.Left + Text1.Width + abstand
            Text2.Width = gesamt - (Text1.Width + abstand)
        End If
End Sub

greetz