Tags:
visual-basic
Public Class Class1
Dim tt
Public Function timer(ByVal time As String) _
As String
tt = time
InitializeComponent()
End Function
Private Sub InitializeComponent()
Me.Timer1 = New System.Windows.Forms.Timer
'Timer1
'
Me.Timer1.Interval = tt
'
'Form1
Timer1.Enabled = True
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
End Sub
Friend WithEvents Timer1 As System.Windows.Forms.Timer
End Class