ex11.通过enable属性设置控件有效性 Option Explicit Dim t0 As Date, t1 As Date Private Sub Command1_Click() t0 = Now Text1.Text = Format(t0, "hh:mm:ss"