主题：VB.NET代码的修改

请教老师，这个VB.NET的代码放在FOXTABLE的全局中怎样修改可以使用

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Sub Form_Load()
 Dim sy As Long
 Dim newsy As Long
 Const GWL_STYLE = -16
 Const WS_CAPTION = &HC00000
 Const WS_BORDER = &H800000
sy = GetWindowLong(Me.hwnd, GWL_STYLE)
 newsy = SetWindowLong(Me.hwnd, GWL_STYLE, sy - WS_CAPTION - WS_BORDER)
End Sub

参考

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=106606&skin=0