Modificare la dimensione di un Oggetto grafico ruotando la rotellina del mouse

Per modificare la dimensione di un Oggetto grafico ruotando la rotellina del mouse, è possibile adottare il seguente codice:

Private dmw As Short
Private dmh As Short


Public Sub Form_Open()

 With Button1
   .W = 100
   .H = 100
   dmw = .W
   dmh = .H
 End With

End


Public Sub Form_MouseWheel()

 dmw += Mouse.Delta
 dmh += Mouse.Delta

 With Button1
   .Resize(dmw, dmh)
 End With

End