sub form_load() Me.StatusBar1.Panels(1).Text = Nowend sub
vb6.0:private sub timer1_timer()StatusBar1.Panels(1).Text = date & timeend sub