System Time Display AM and PM format in Label

Private

Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

If Now.TimeOfDay.Hours.ToString > 11 Then

lbltime.Text = Format(Now,

"hh:mm:ss") + " PM"

Else

lbltime.Text = Format(Now,

"hh:mm:ss") + " AM"

End If

End Sub