ExitStyle
Do While Me.Width > 1800 Me.Width = Me.Width - 300 Me.Left = Me.Left + 150 If Me.Height - 400 Then Me.Top = Me.Top - 1 Me.Height = Me.Height - 150 End If Loop Unload Form1: End
Do While Me.Width > 1800
Me.Width = Me.Width - 300
Me.Left = Me.Left + 150
If Me.Height - 400 Then
Me.Top = Me.Top - 1
Me.Height = Me.Height - 150
End If
Loop
Unload Form1: End
( exitstyle.html )- by Paolo Puglisi
- Modifica del 17/12/2023