html标题栏显示日期,在窗体的标题栏中显示日期如何写代码

Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) 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 FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Const GWL_STYLE As Long = (-16)

Private Const WS_CAPTION As Long = &H80000

Private Sub UserForm_Initialize() Dim hwnd&, IStyle&

If Val(Application.Version) < 9 Then

hwnd = FindWindow("ThunderXFrame", Me.Caption)

Else

hwnd = FindWindow("ThunderDFrame", Me.Caption)

End If

IStyle = GetWindowLong(hwnd, GWL_STYLE)

IStyle = IStyle And Not WS_CAPTION

SetWindowLong hwnd, GWL_STYLE, IStyle

DrawMenuBar hwnd

kmcx.Caption = "会计科目明细查询 今天是：" & Date$

End Sub