Cómo crear un cronómetro en Visual Basic

El código es el siguiente:

'Declaracion de variables

Private Hora As Integer = 0
Private Minuto As Integer = 0
Private Segundo As Integer = 0
Private Milisegundo As Integer = 0

' Sub Procedimiento

Sub MostrarTiempo()
 LblTiempoConexion.Text = Hora.ToString.PadLeft(2, "0") & ":"
 LblTiempoConexion.Text &= Minuto.ToString.PadLeft(2, "0") & ":"
 LblTiempoConexion.Text &= Segundo.ToString.PadLeft(2, "0") & ":"
 LblTiempoConexion.Text &= Milisegundo.ToString.PadLeft(1, "0") & ":"
 LblTiempoConexion.Refresh()
 End Sub

'Comienzo a realizar las operaciones y refresco el subprocedimiento

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
 Milisegundo += 1
 If Milisegundo = 9 Then
 Milisegundo = 0
 Segundo += 1
 If Segundo = 59 Then
 Segundo = 0
 Minuto += 1
 If Minuto = 59 Then
 Minuto += 1
 Hora += 1
 End If
 End If
 End If
 MostrarTiempo()
 End Sub