Workbook Caption/ Title bar

[Jaye7]

I use the following script to remove the userform caption, however, sometimes it decides to remove the workbook caption instead, can someone please provide a script that I can use to redraw/ show the workbook caption.

'Option Private Module
'Returns the Window Handle of the Window
'that is accepting User input.
 Public Declare Function GetForegroundWindow _
   Lib "User32.dll" () As Long

 Private Declare Function GetWindowLong _
  Lib "User32.dll" _
    Alias "GetWindowLongA" _
     (ByVal hwnd As Long, _
      ByVal nIndex As Long) As Long
               
 Private Declare Function SetWindowLong _
  Lib "User32.dll" _
    Alias "SetWindowLongA" _
     (ByVal hwnd As Long, _
      ByVal nIndex As Long, _
      ByVal dwNewLong As Long) As Long

'Redraw the Icons on the Window's Title Bar
 Private Declare Function DrawMenuBar _
   Lib "User32.dll" _
    (ByVal hwnd As Long) As Long

 Private Const GWL_STYLE As Long = (-16)
 Private Const WS_CAPTION = &HC00000

Sub RemoveCaption1()

  Dim BitMask As Long
  Dim hwnd As Long
  Dim WindowStyle As Long
  
    hwnd = GetForegroundWindow
    WindowStyle = GetWindowLong(hwnd, GWL_STYLE)

    BitMask = WindowStyle And (Not WS_CAPTION)

    Call SetWindowLong(hwnd, GWL_STYLE, BitMask)
    Call DrawMenuBar(hwnd)
   
End Sub

I have tried application.caption="" but nothing happens

 

[Jaye7]

I have tried a wintimer is that the same as an api timer, because the wintimer didn't work, it wouldn't update.

Do you have an example API timer that you could include on the workbook that I sent you so that i.e. textbox1 would have an updating clock, if you can get me started with one that works I could go from there and change it to suite.

 

[Jaye7]

Leith,

I have added a workbook on the following link that has 2 examples of my wintimer function.

The 1st one works as it is not pinned to the screen permanently so updates fine.

The 2nd one will not update as it is pinned to the screen.

You will need to copy and paste the link into your browser.

http://jt7.angelfire.com/TESTBOOK.xls

 

[Jaye7]

Leith,

I have found an API timer on the internet and have managed to incorporate it into my userform and it is working well.

Thanks for all your time and help.