form sizing with system tray

[Aaron Young]

I'm assuming you want a Form that has no Border, Caption, etc..

In a Form with BorderStyle Set to Sizeable and ShowInTaskBar set to False and WindowState set to Maximized..

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Const GWL_STYLE = (-16)
Private Const WS_CAPTION = &HC00000
Private Const WS_BORDER = &H800000

Private Sub Form_Load()
    'A Maximized Sizable Form doesn't Cover the Taskbar
    'So Just Remove the Caption and Border..
    Call SetWindowLong(hwnd, GWL_STYLE, GetWindowLong(hwnd, GWL_STYLE) Xor WS_CAPTION Xor WS_BORDER)
End Sub

------------------
Aaron Young
Analyst Programmer
[email protected]
[email protected]