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 |