Remove Userform Caption And Make Modeless

[Jaye7]

I got this code from another thread and the code is great EXCEPT, I would like my userform to be modeless.

I changed the script to vbmodeless but the form is still locked in modal mode.

Any help would be appreciated

*** Place this code In a User Form *** 
 
Option Explicit 
 
Private Sub UserForm_Initialize() 
     
    Call RemoveCaption(Me) 
     
End Sub 
 
*** Place this code In a Module *** 
 
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 RemoveCaption(objForm As Object) 
     
    Dim lStyle          As Long 
    Dim hMenu           As Long 
    Dim mhWndForm       As Long 
     
    If Val(Application.Version) < 9 Then 
        mhWndForm = FindWindow("ThunderXFrame", objForm.Caption) 'XL97
    Else 
        mhWndForm = FindWindow("ThunderDFrame", objForm.Caption) 'XL2000+
    End If 
    lStyle = GetWindowLong(mhWndForm, -16) 
    lStyle = lStyle And Not &HC00000 
    SetWindowLong mhWndForm, -16, lStyle 
    DrawMenuBar mhWndForm 
     
End Sub 
 
Sub ShowForm() 
     
    UserForm1.Show False 
     
End Sub

 

[repairman615]

To double check, near the bottom you tried:

<font face=Courier New>UserForm1.Show (vbModeless)</FONT>

other than that I may not be much help.

 

[Jaye7]

Thanks repairman, yes I tried it but for some reason within the API script it must lock the form to modal, I guess so that the form is the foremost front window, but not entirely sure.

 

[repairman615]

Well this next bit is totally a guess..

What if you were to place:

<font face=Courier New>Me.Show (vbModeless)</FONT>

after
Call RemoveCaption(Me)

??

Private Sub UserForm_Initialize() 
     
    Call RemoveCaption(Me) 
    Me.Show (vbModeless)
End Sub

 

[Jaye7]

It still remains modal, I'm guessing that a part of the API script locks it and therefore would need to be changed, but I have absolutely no knowledge about API's.

 

[John_w]

Try putting the

Sub ShowUserForm()
    UserForm1.Show vbModeless
End Sub

in a standard module or sheet module rather than the UserForm1 module.

 

[Jaye7]

Still no joy, If I put the script in it's own module it is now removing the actual excel title bar rather than the userform title bar.