IntPtr用法的VB6等效项

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 Const GWL_STYLE As Long = -16
Private Const WS_CAPTION As Long = &HC00000

Sub ModifyWindowStyle(hWnd As Long)
    Dim style As Long
    style = GetWindowLong(hWnd, GWL_STYLE)
    style = style And Not WS_CAPTION ' 移除标题栏
    SetWindowLong hWnd, GWL_STYLE, style
End Sub