代码如下
--------------------------------------------------------------------------------------------------------------------------------------------------------
Private Sub Timer1_Timer()
Dim a&
a = timer()
Text1 = "今天跳动" & a & "秒"

End Sub

Private Sub Timer2_Timer()
Text2 = "北京时间：" & Time
End Sub
----------------------------------------------------------------------------------------------------------------------------------------------------------------
我一运行光标就一直停留在 Text1前面一闪一闪的!(下图)  不知道怎么做才可以让他不闪呢?  麻烦大家帮帮忙!

窗体有别的控件就把焦点顺序重设一下，比如按钮上。
再者text内不做修改可改用label不是更好？
也可通过代码让光标不显示，略过……

谢谢拉!lable1试了很好!
请问下 用什么代码能实现?在text内不闪光标呢?

Private Declare Function HideCaret Lib "User32.dll" (ByVal hwnd As Long) As Boolean

Private Sub Text1_GotFocus()
  HideCaret Text1.hwnd
End Sub