Visual Basic - Como puedo poner una barra con la fecha actual

Como puedo poner en mi proyecto una barra con la fecha actual

Aqui se hace para la hora cambia las cosas para fecha...
espero que te sirva...


en el componente Microsoft Windows Common Controls 6.0.



Para ello ubicar un control StatusBar sobre el formulario, dar click derecho sobre el mismo y en la ficha Paneles incluir una imagen para la hora del sistema.


El resto de propiedades se establecerán mediante código al momento de la carga del formulario.

Private Sub MDIForm_Load()
Dim I As Integer
For I = 1 To 2
StatusBar1.Panels.Add ' Se agregan 2 paneles más
Next
With StatusBar1.Panels
.Item(1).Style = sbrTime
.Item(2).Style = sbrCaps
.Item(3).Style = sbrIns
End With
End Sub