Hide Userform TitleBox VBA

[MM91]

Hi I have this code that I am trying to use to hide the userform to not show the title boxes. However I am getting an error that says this code must be updated for 64 bit. How do I go about that or is there a different way to hide the title bar. Thank you!!


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 Declare Function DrawMenuBar Lib "User32" ( _
ByVal hwnd As Long) As Long

Sub HideUserFormTitleBars(frm As Object)
Dim lStyle As Long
Dim hMenu As Long
Dim mhWndForm As Long

If Val(Application.Version) < 9 Then
mhWndForm = FindWindow("ThunderXFrame", frm.Caption) 'for Office 97 version
Else
mhWndForm = FindWindow("ThunderDFrame", frm.Caption) 'for office 2000 or above
End If
lStyle = GetWindowLong(mhWndForm, -16)
lStyle = lStyle And Not &HC00000
SetWindowLong mhWndForm, -16, lStyle
DrawMenuBar mhWndForm
End Sub

Sub ShowForm()
UserForm.Show False
End Sub

 

[Zot]

Put PtrSafe on every Function declaration like this
Private Declare PtrSafe Function ..................

 

[MM91]

Put PtrSafe on every Function declaration like this
Private Declare PtrSafe Function ..................

thank you sir!!

 

[Zot]

Glad to help