Como dice brozz eso seria suficiente para tener el mismo reloj que tienes en la barra de estado de Windows.Si le quisieras añadir los segundos deberias crear un control timer, ponerle el interval a 1000(milisegundos, 1 segundo) y codificar el evento del timer, algo asi:
Private Sub timHora_Timer()
'Actualizo la hora del reloj
stbPrincipal.Panels(2).Text = Time
End Sub
Ten en cuenta las posibles paradas de la aplicacion y ponte DoEvents por ahi para que no se pare el reloj.
