Article ID: 175222
Article Last Modified on 7/13/2004
Private Sub Timer1_Timer()
Label1.Caption = Time()
End Sub
Private Sub UserControl_Show()
If Ambient.UserMode Then 'We are in run-time
Timer1.Interval = 1000
Timer1.Enabled = True
Else 'We are in design-time
Timer1.Enabled = False
Label1.Caption = "design time"
End If
End Sub
Additional query words: ActiveX Control kbVBp500 kbVBp600 kbVBp kbdsd kbDSupport KBCONTROL KBCTRLCREATE
Keywords: kbhowto kbgrpdsvb KB175222