'Globale deklaration
 
Dim mMoving As Boolean
Dim mStartX As Single
Dim mStartY As Single
 
 
'erstellen der dynamischen Textboxen
 
MaxTextbox1 = MaxTextbox1 + 1
   Load TextBox1(MaxTextbox1)
 
    With TextBox1(MaxTextbox1)
            .Width = wid
            .Height = hgt
 
            .Left = m_X1
            .Top = m_Y1
 
            .Visible = True
     End With
 
 
Private Sub TextBox1_MouseDown(Index As Integer, Button As Integer, Shift As _
  Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
mMoving = True
mStartX = X
mStartY = Y
End If
 
 
 
End Sub
 
Private Sub TextBox1_MouseMove(Index As Integer, Button As Integer, Shift As _
  Integer, X As Single, Y As Single)
Dim xNew As Single
Dim yNew As Single
 
If mMoving Then
With TextBox1(Index)
 
xNew = .Left + X - mStartX
yNew = .Top + Y - mStartY
 
If xNew >= 0 And xNew + .Width <= Me.ScaleWidth Then
.Left = xNew
End If
 
If yNew >= 0 And yNew + .Height <= Me.ScaleHeight Then
.Top = yNew
End If
 
End With
 
End If
End Sub
 
Private Sub TextBox1_MouseUp(Index As Integer, Button As Integer, Shift As _
  Integer, X As Single, Y As Single)
mMoving = False
End Sub