Hi.

Short question:
Is it possible to display an userform without it's titlebar?
And if the answer ist 'yes', how can I do this?

Thanks
Michi

Hello Michi
Place this into the userform code:
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 Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As
Long

Private Sub UserForm_Initialize()
Dim hWnd As Long, Style As Long
hWnd = FindWindow(vbNullString, Me.Caption)
Style = GetWindowLong(hWnd, -16) And Not &HC00000
SetWindowLong hWnd, -16, Style
DrawMenuBar hWnd
End Sub

HTH
Cordially
Pascal

"Michael Mueller" a écrit dans le message de
news: ...
Hi.

Short question:
Is it possible to display an userform without it's titlebar?
And if the answer ist 'yes', how can I do this?

Thanks
Michi

Is it possible to display an userform without it's titlebar?

Place this into the userform code:

Thanks
Michi