Control resizing on mouse move or mouse drag - vba

Question

I am creating a simple program, using Excel VBA, that will allow me to resize a control at run-time as the mouse moves or on mouse drag. However, it seems that I'm getting a different result
I'm not sure why I am getting a different final width result, but here's how I'm doing it:
Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
initialx = X
initialy = Y
xmove = True
End Sub
Private Sub TextBox1_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
Dim newx, newy As Single
If xmove = True Then
newx = Math.Abs(X - initialx)
newy = Math.Abs(Y - initialy)
TextBox1.Width = TextBox1.Width + newx
End If
End Sub
And here's how my form looks like:
As you can see in the screenshot, the width of the TextBox should increase by 9 as it is the distance covered by the mouse cursor from the mouse cursor initial click(location) on the control.
And I'm stuck with this. Why isn't it working as expected?

Answer 1

It's needs Global variable initialWidth.
Dim initialX, initialY, xmove, initialWidth
Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As _
Integer, ByVal X As Single, ByVal Y As Single)
initialX = X
initialY = Y
initialWidth = TextBox1.Width '<~~setting initialWidth
xmove = True
TextBox2.Value = initialX
TextBox3.Value = initialY
End Sub
Private Sub TextBox1_MouseMove(ByVal Button As Integer, ByVal Shift As _
Integer, ByVal X As Single, ByVal Y As Single)
Dim newx, newy As Single
If xmove = True Then
newx = Math.Abs(X - initialX)
newy = Math.Abs(Y - initialY)
'TextBox1.Width = TextBox1.Width + newx
TextBox1.Width = initialWidth + newx
TextBox5.Value = newx
TextBox6.Value = newy
End If
End Sub