Here it is ....
Place in UserForm1 Code Window
'define these as global vars
Dim XPointPrev As Single
Dim YPointPrev As Single
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If XPointPrev = 0 Then
XPointPrev = X
End If
If YPointPrev = 0 Then
YPointPrev = Y
End If
If (Button = 1) And (Shift = 0) And (X > UserForm1.Width - 20) And (Y > UserForm1.Height - 50) Then
UserForm1.Width = UserForm1.Width + (X - XPointPrev)
UserForm1.Height = UserForm1.Height + (Y - YPointPrev)
XPointPrev = X
YPointPrev = Y
ElseIf (Button = 1) And (Shift = 0) And (X > UserForm1.Width - 20) Then
UserForm1.Width = UserForm1.Width + (X - XPointPrev)
XPointPrev = X
ElseIf (Button = 1) And (Shift = 0) And (Y > UserForm1.Height - 50) Then
UserForm1.Height = UserForm1.Height + (Y - YPointPrev)
YPointPrev = Y
End If
If (Button = 0) Then
XPointPrev = 0
YPointPrev = 0
End If
End Sub