[ A trick for forms ] Variation

				
'**************************************
' Name: [ A trick for forms ] Variation
' Description:After reading "Power of Anubis'" submission and reading LaVolpe's suggestion I decided to write a variation of his code and add on to it. Enjoy!
Description: "This code kills the X of the control box. And kills the Close of the menu when click on the icon of the program!!!! WORKS!!!!!"
' By: Daniel M
'
'This code is copyrighted and has' limited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=59715&lngWId=1'for details.'**************************************

Option Explicit
'API Declarations
Private Declare Function GetMenuItemID Lib "user32" _
 (ByVal hMenu As Long, ByVal nPos As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" _
 (ByVal hwnd As Long) As Long
 
Private Declare Function GetMenuItemCount Lib "user32" _
 (ByVal hMenu As Long) As Long
 
Private Declare Function GetSystemMenu Lib "user32" _
 (ByVal hwnd As Long, _
 ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" _
 (ByVal hMenu As Long, _
 ByVal nPosition As Long, _
 ByVal wFlags As Long) As Long
'Constants
Private Const MF_BYPOSITION = &H400
Private Const MF_REMOVE = &H1000
Private Const SC_CLOSE = &HF060&
Private Sub Form_Load()
 Dim hMenu As Long 'Menu Handle
 Dim menuItemCount As Long 'Menu Count
 Dim theItem As Long 'Item to remove
 Dim iAs Long
 
 hMenu = GetSystemMenu(Me.hwnd, 0) 'Get system menu from form
 theItem = -1 'Set initial variable for "not found"
 
 If hMenu Then 'If found then
menuItemCount = GetMenuItemCount(hMenu) 'Retrieve menu count
For i = 0 To menuItemCount 'Look for the "close" ID
 If GetMenuItemID(hMenu, i) = SC_CLOSE Then
theItem = i 'If found, quit loop
Exit For
 End If
Next i
If theItem <> -1 Then 'If found then remove item
 Call RemoveMenu(hMenu, theItem, _
 MF_REMOVE Or MF_BYPOSITION)
End If
If GetMenuItemID(hMenu, theItem - 1) = 0 Then 'If previous item is a menu sep
 Call RemoveMenu(hMenu, theItem - 1, _
 MF_REMOVE Or MF_BYPOSITION) 'then remove it for consistency.
End If
Call DrawMenuBar(Me.hwnd) 'Draw it!
 End If
End Sub