Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String) As Long Private Declare Function GetActiveWindow Lib "user32" () As Long Sub TitleBar() 'TitleBar for Word97 by ...

抱歉，此文档暂时无法提供完整预览，请免费下载后浏览。