Visual Basic 6.0 : Status Bar

Sample Codes Here:

Private Sub Form_Load()

StatusBar1.Panels(1) = "DATE: " & Date
StatusBar1.Panels(2) = Time

End Sub

Private Sub Timer1_Timer()

StatusBar1.Panels(2) = "TIME: " & Time

End Sub 

 Watch video Below