用vb怎样使一个程序无边框

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

Const WS_VISIBLE = &H10000000
Const WS_CLIPSIBLINGS = &H4000000
Const WS_CLIPCHILDREN = &H2000000

Private Const GWL_STYLE = (-16)

Private Sub Form_Click()
Dim l As Long
SetWindowLong Me.hwnd, GWL_STYLE, WS_VISIBLE Or WS_CLIPSIBLINGS Or WS_CLIPCHILDREN
End Sub

不是实时生效的 要重绘一下目标窗口才可以，按一下alt+tab切换一下就可以