Does anyone knows how you can add to the system context menu (Contains Restore,Max,Min,Close). GetSystemMenu gets the system menu and AppendMenu allows you to append to the menu but how can i really do something useful with the new appended menu??

Declare Function GetSystemMenu Lib "user32" Alias "GetSystemMenu" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Declare Function AppendMenu Lib "user32" Alias "AppendMenuA" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpNewItem As Any) As Long