ListBox1.Items.AddRange(My.Computer.Registry.ClassesRoot.GetSubKeyNames)

Dim bis As Integer
bis=Listbox1.Items.Count
For i As Integer = 1 To bis 
           Form1.ListBox1.SelectedIndex = +1
      If TextBox1.Text = Form1.ListBox1.Text Then
           MsgBox("Gleich")
      Else
           MsgBox("Verschieden")
 
      End If
Next i