系统默认显示"AM/PM"在前面的。
不过，如果用VB脚本的话，可以间接实现的：

item.Text = Right(Time(),8) & " " & Left(Time(),2)

把上面的代码加到画面刷新上就是了，item.Text就是要显示文本的静态文本控件。

我的做法一般就是去掉静态文本控件的填充和设置边框线宽为0，然后设置该控件属性的"激活闪烁线"，跟着在控件事件的其他的对象改变里面粘贴入上面的代码，当运行画面时就自动刷新时间显示了，感觉这样做挺方便的。
当然，前提是你的操作系统区域语言选项的自定义选项里面的系统时间必须是设置为12小时制的，且选择"AM"/"PM"符号。

如果系统是使用24小时制显示的，代码就多了些...
Sub OnObjectChanged(ByVal Item)
Dim T1,Ts1

On Error Resume Next
T1 = Hour(Now)

Select Case T1
Case 0
T1 = 12
Ts1 = " AM"
Case 1,2,3,4,5,6,7,8,9,10,11
Ts1 = " AM"
Case 12
Ts1 = " PM"
Case 13,14,15,16,17,18,19,20,21,22,23
T1 = T1 -12
Ts1 = " PM"
End Select

If T1 < 10 Then
T1 = "0" & T1
End If

item.Text = T1 & ":" & Right(Time,5) & Ts1
End Sub