VB.net实时同步时钟

Question

我这里有一个工作代码，但输出是24小时格式：

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
Timer1.Enabled = True 
End Sub 

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick 
Label1.Text = Now.TimeOfDay.ToString() 
End Sub 

我使用了计时器但我的输出看起来像这样：

17：00：30.123456

我希望我的输出在12小时格式中如下：

下午5:00

Answer 1

我在这里解决了我的12小时格式代码：

Label1.Text = Date.Now.ToString("h:mm:ss tt")