|
Private Declare Function IsZoomed Lib "user32" (ByVal hwnd As Long) As Long
Private Sub Form_Activate()
'KPD-Team 2000
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
Me.AutoRedraw = True
Me.Print "Was the window maximized onstartup? " + Str$(CBool(IsZoomed(Me.hwnd)))
Me.WindowState = vbMaximized
Me.Print "Is the window now maximized? " + Str$(CBool(IsZoomed(Me.hwnd)))
End Sub
|
|