Userform without titlebar?

  • Thread starter Michael Mueller
  • Start date
M

Michael Mueller

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
 
P

papou

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Userform without titlebar? 2
How do I set focus (and select text) on a text box on a modeless userform? 0
using two cell references to make up the save as file name 3
Stopping a macro to edit the template then re-saving the macro for use 4
GetOpenFilename Close 2
Determine if a userform is visible 6
Display COUNT result in Titlebar 4
User Form Title Bar 1

Top