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 = (-16)
Private Const WS_POPUP = &H80000000
 
Private Sub Form_Load()
   Me.BorderStyle = 0
   SetWindowLong Me.hwnd, GWL_STYLE, WS_POPUP
End Sub