Private Sub Command1_MouseMove(Button As Integer, _ Shift As Integer, X As Single, Y As Single) Command1.Height = 800 Command1.Width = 2000 End Sub
Private Sub Form_MouseMove(Button As Integer, _ Shift As Integer, X As Single, Y As Single) If Command1.Height = 800 Then Command1.Height = 500 Command1.Width = 1500 End If End Sub