请教个vb的form上去掉关闭按钮的问题

Question

Public Class Form1
    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 Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
    Const GWL_STYLE = (-16)
    Const WS_SYSMENU = &H80000    Private Sub RemoveSysButton(ByVal hHwnd As Long)
        Dim lWnd As Long
        lWnd = GetWindowLong(hHwnd, GWL_STYLE)
        lWnd = lWnd And Not (WS_SYSMENU)
        lWnd = SetWindowLong(hHwnd, GWL_STYLE, lWnd)
        DrawMenuBar(hHwnd)
    End Sub    Private Sub Form1_Load()
        RemoveSysButton(me.hHwnd)
    End Sub
End Class
这是我在网上找的代码，但是总是出错，说：hHwnd is not a member of form1
请问下是怎么回事。
另外我用的是VB 2005 Express Edition.

Answer 1

保管能行：http://download.csdn.net/source/565913

Answer 2

注意这里的调用:
RemoveSysButton(me.hHwnd)错在这里:
me.hHwnd改成:
me.hwnd

Answer 3

注意这里的调用:
RemoveSysButton(me.hHwnd)错在这里:
me.hHwnd改成:
me.hwnd

Answer 4

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
  Private Const MF_BYPOSITION = &H400&
  Private Const MF_REMOVE = &H1000&
  Private Const SC_CLOSE = &HF060&
    
  Private Sub Form_Load()
          RemoveMenu GetSystemMenu(Me.hwnd, 0), SC_CLOSE, MF_REMOVE
  End Sub
接分