Creare e dimensionare un oggetto con lo spostamento del mouse sul form

Come esempio creeremo e dimensioneremo un Button su un form.

Private bt As Button
Private xIniz As Integer
Private yIniz As Integer


Public Sub Form_MouseDown()
 
 bt = New Button(Me)   ' creiamo il Button

' Raccogliamo la posizione iniziale del mouse
 xIniz = Mouse.X
 yIniz = Mouse.Y

End


Public Sub Form_MouseMove()

Dim x, y As Integer

' Assegnamo le caratteristiche al "Button" mediante lo spostamento del mouse:
 With bt
   .Width = Mouse.X - xIniz
   .Height = Mouse.Y - yIniz
   .X = xIniz  ' Le coordinate di partenza sono quelle impostate
   .Y = yIniz  ' con il "MouseDown".
   .Text = "Button creato\ncon lo spostamento del mouse !"
 End With

End