Ovo bi trebalo da odradi posao, pod uslovom da sam razumeo šta ti treba.
Code:
Private Sub Check1_Click()
If Check1.Value = 1 Then
Timer1.Enabled = True
ElseIf Check1.Value = 0 Then
Timer1.Enabled = False
End If
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
If List1.Text = Textbox18.Text Then
'Sta hoces da se uradi ako su vrednosti iste.
End If
End Sub