DetectFrmSts

Public Declare Function RegisterWindowMessage Lib _
"user32" Alias "RegisterWindowMessageA" _
(ByVal lpString As String) As Long

'Constanti

Public Const SIZE_RESTORED = 0
Public Const SIZE_MINIMIZED = 1
Public Const SIZE_MAXIMIZED = 2
Public Const SIZE_MAXSHOW = 3
Public Const SIZE_MAXHIDE = 4

Private Sub tmrMessage_Timer
Dim retval as String
RegisterWindowMessage (retval)
If retval = SIZE_RESTORED Or SIZE_MAXIMIZED Then
Form_Resize
End If
End Sub