AniForm
Private Sub Command1_Click() ' Dim w as Variant w = xxxx 1: w = w + 1 Form1.Width = w If w = xxxx Then Goto 2 Else Goto 1 End If 2: End Sub
Private Sub Command1_Click() '
Dim w as Variant
w = xxxx
1:
w = w + 1
Form1.Width = w
If w = xxxx Then
Goto 2
Else
Goto 1
End If
2:
End Sub
( aniform.html )- by Paolo Puglisi
- Modifica del 17/12/2023