My search function doesnt work

[lord_cedrich]

im wondering why my search function doesnt work supposed to be if you gonna press a letter then it it look for the first letter of the topic

here is my code;

Dim Ctr As Integer
Dim Leng As Integer
Dim PiC As String
Dim PiC2 As String
Private Sub Form_Activate()
Call Hide_Images
List1.Clear
Data1.Recordset.MoveFirst
Data1.Recordset.MoveNext
Data1.Recordset.MovePrevious
For Ctr = 1 To Data1.Recordset.RecordCount
    List1.AddItem Text3
    Data1.Recordset.MoveNext
Next Ctr
Text1 = ""
End Sub
 
Private Sub Image19_Click()
 
End Sub
 
Private Sub List1_Click()
Data1.Recordset.MoveFirst
Data1.Recordset.MoveNext
Data1.Recordset.MovePrevious
For Ctr = 1 To Data1.Recordset.RecordCount
    If List1.Text = Text3 Then
        Ctr = Data1.Recordset.RecordCount
    Else
        If Data1.Recordset.EOF Then
            Data1.Recordset.MoveFirst
        Else
            Data1.Recordset.MoveNext
        End If
    End If
Next Ctr
End Sub
 
Private Sub Text1_KeyPress(KeyAscii As Integer)
Timer1.Interval = 1
End Sub
 
Private Sub Timer1_Timer()
Text1 = LCase(Text1)
Leng = Len(Text1)
Text3.SetFocus
Data1.Recordset.MoveFirst
Data1.Recordset.MoveNext
Data1.Recordset.MovePrevious
For Ctr = 1 To Data1.Recordset.RecordCount
    Text3.SelStart = 0
    Text3.SelLength = Leng
    If Text1 = Text3.SelText Then
        List1.Text = Text3
        Ctr = Data1.Recordset.RecordCount
        Text1.SetFocus
        Text1.SelStart = Len(Text1)
    Else
        If Ctr = Data1.Recordset.RecordCount Then
            Text1.SetFocus
            Text1.SelStart = Len(Text1)
        Else
            If Data1.Recordset.EOF Then
                Data1.Recordset.MoveFirst
            Else
                Data1.Recordset.MoveNext
            End If
        End If
    End If
Next Ctr
Timer1.Interval = 0
End Sub
 
Private Sub Timer2_Timer()
If Label3 = List1.Text Then
 
Else
    Label3 = Text3
    Text2 = Text4
End If
End Sub
 
Private Sub Hide_Images()
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
Image6.Visible = False
Image7.Visible = False
Image8.Visible = False
Image9.Visible = False
Image10.Visible = False
Image11.Visible = False
Image12.Visible = False
Image13.Visible = False
 
End Sub
 
Private Sub Timer3_Timer()
PiC = Label4
If PiC2 = PiC Then
 
Else
    If PiC = "" Then
        Call Hide_Images
    End If
    If PiC = "example01" Then
        Call Hide_Images
        Image1.Visible = True
    End If
    If PiC = "example02" Then
        Call Hide_Images
        Image2.Visible = True
    End If
    If PiC = "example03" Then
        Call Hide_Images
        Image3.Visible = True
    End If
    If PiC = "example04" Then
        Call Hide_Images
        Image4.Visible = True
    End If
    If PiC = "example05" Then
        Call Hide_Images
        Image5.Visible = True
    End If
    If PiC = "example06" Then
        Call Hide_Images
        Image6.Visible = True
    End If
    If PiC = "example07" Then
        Call Hide_Images
        Image7.Visible = True
    End If
    If PiC = "example08" Then
        Call Hide_Images
        Image8.Visible = True
    End If
    If PiC = "example09" Then
        Call Hide_Images
        Image9.Visible = True
    End If
    If PiC = "example10" Then
        Call Hide_Images
        Image10.Visible = True
    End If
    If PiC = "example11" Then
        Call Hide_Images
        Image11.Visible = True
    End If
        If PiC = "example12" Then
        Call Hide_Images
        Image12.Visible = True
    End If
    If PiC = "example13" Then
        Call Hide_Images
        Image13.Visible = True
    End If
 
End If
PiC2 = PiC
End Sub

[gavio]

Just a hint:

If PiC = "" Then
        Call Hide_Images
    End If
    If PiC = "example01" Then
        Call Hide_Images
        Image1.Visible = True
    End If
    If PiC = "example02" Then
        Call Hide_Images
        Image2.Visible = True
    End If
    If PiC = "example03" Then
        Call Hide_Images
        Image3.Visible = True
    End If
    If PiC = "example04" Then
        Call Hide_Images
        Image4.Visible = True
    End If
    If PiC = "example05" Then
        Call Hide_Images
        Image5.Visible = True
    End If
    If PiC = "example06" Then
        Call Hide_Images
        Image6.Visible = True
    End If
    If PiC = "example07" Then
        Call Hide_Images
        Image7.Visible = True
    End If
    If PiC = "example08" Then
        Call Hide_Images
        Image8.Visible = True
    End If
    If PiC = "example09" Then
        Call Hide_Images
        Image9.Visible = True
    End If
    If PiC = "example10" Then
        Call Hide_Images
        Image10.Visible = True
    End If
    If PiC = "example11" Then
        Call Hide_Images
        Image11.Visible = True
    End If
        If PiC = "example12" Then
        Call Hide_Images
        Image12.Visible = True
    End If
    If PiC = "example13" Then
        Call Hide_Images
        Image13.Visible = True
    End If

Use ElseIf instead If End If, If End If... You just need one End If, and it's much faster.