Window Less UserForm

Is it possible to create Userforms without the caption and close buttons?

[runflacruiser]

Hi.
Only with Api calls.
Place the code in a form. Make sure to change form name in code if needed. Also don't forget to put a close form command button or you can't close it.

Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
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)           'The offset of a window's style
Private Const WS_CAPTION As Long = &HC00000       'Style to add a titlebar
Private Declare Function DrawMenuBar Lib "user32" ( _
ByVal hwnd As Long) As Long


Private Sub UserForm_Initialize()
    Dim hwndform&, istyle&, x#
    hwndform = FindWindow("ThunderDframe", UserForm1.Caption)
    istyle = GetWindowLong(hwndform, GWL_STYLE)
    istyle = istyle And Not WS_CAPTION
    x = SetWindowLong(hwndform, GWL_STYLE, istyle)
    DrawMenuBar hwndform
End Sub

-John

Thanks John,

Works perfectly.

I tried one I found on an Excel Forum but it didn't work.