uspoređivanje liste sa timerom

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

Code:

Private Sub Form_Load()
    
    List1.AddItem "1"
    List1.AddItem "2"
    List1.AddItem "3"
    List1.AddItem "4"
    
    Timer1.Interval = 1000
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
    Dim i As Integer
    
    If List1.SelCount = 0 Then Exit Sub
    
    For i = 0 To List1.ListCount - 1
        If List1.Selected(i) Then
            If List1.List(i) = Textbox18.Text Then
                MsgBox List1.List(i)
            End If
        End If
    Next
    
End Sub

Code:

If List1.Selected(i) Then

Code:

If List1.SelCount = 0 Then Exit Sub

Code:

Private Sub Form_Load()

 Dim sfile, a As String
    sfile = App.Path + "\" + "alarm.mpl"
    On Error GoTo serr
    Open sfile For Input As #1
    Do Until EOF(1)
    Input #1, a$
    List1.AddItem a$
    Loop
    Close #1
serr:
    Close #1
End Sub

Private Sub Form_Unload(Cancel As Integer)

Dim sfile As String
Dim i As Long
sfile = App.Path + "\" + "alarm.mpl"
On Error GoTo error
Open sfile For Output As #1
For i = 0 To List1.ListCount - 1
    List1.ListIndex = i
     Write #1, List1.Text
Next i
error:
    Close #1
end sub