Private indAllowMinimize as boolean
Private intWindowState as integer
Private Sub Form_Load
Comman1.Caption = "Permir minimizar"
End Sub
Private Sub Command1_Click
IndAllowMinimize = Not indAllowMinimize
If indAllowMinimize Then
Command1.Caption = "No permitir minimizar"
Else
Command1.Caption = "Permitir minimizar"
intWindowState = 0
End If
End Sub
Private Sub Form_Resize()
If Me.WindowState = 1 And Not indAllowResize Then
Me.WindowState = intWindowState
Else
intWindowState = Me.WindowState
End If
End Sub