VB 用计时器显示日期时间上下午

画面添加Timer1和Label1
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Format(Now， "yyyy年MM月dd日 ampm HH时mm分ss秒")
End Sub

如何用vb代码在文本框中显示当前时间是上午或下午