SOLVED:How can i put current oclock in statusbar

Dear Younicke
your code is Ok and work fine.
I appreciate for your reply

for showing date i use this code on form_load event:

Dim StatusBar As IStatusBar
    Set StatusBar = CommandBars.StatusBar
    
    StatusBar.Visible = True
    Dim Pane As StatusBarPane
      
    Set Pane = StatusBar.AddPane(ID_DATE_PANE)
    Pane.Visible = True
    Pane.Text = " Today : " & Date
    Pane.Width = 0

it's work fine,but for showing current time, i got error
--------------------------------------------------------
with this code i can show time in statusbar,but time is fixed and not change second of it,what's the problem?

Private Sub CommandBars_Update(ByVal Control As XtremeCommandBars.ICommandBarControl)
Select Case Control.Id
Case ID_TIME_PANE
CommandBars.StatusBar.FindPane(ID_TIME_PANE).Text = Time$
End Select

please put code or trim my code to solve this problem
thanks

no more timer control needed.. just the update event of the commandbars.

define the statusbar panes in the form load event
and in the updateevent of the commandbars search
for the pane that you want to show the current time
and then replace the text with the current time

Hi younick
as you told i use update event but i face to error:

Private Sub CommandBars_Update(ByVal Control As XtremeCommandBars.ICommandBarControl)
Dim StatusBar As IStatusBar
Dim Pane As StatusBarPane
Set Pane = StatusBar.AddPane(ID_TIME_PANE)
Pane.Text = Time$
End Sub
----------------
to show current time i use timer control

Private Sub timehoure_Timer()
On Error Resume Next
If Label2.Caption <> CStr(Time) Then
Label2.Caption = Time$
End If
End Sub

pls put right code or trim my code
thanks

I want to put current time in statusbar,but i can't how can i do that?
is there any way to put time in statusbar .
current time show in control timer.
I don't know how can i use of timer control to combine statusbar
thaks all