Private Sub btnb_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles btnb.Click
Dim stest1 as String
With Neuedit
.cblgenre.Top=0
.cblgenre.Left=0
.cblgenre.Width=200
.cblgenre.Height = 100
.cblgenre.items.Add("Test1");
.cblgenre.items.Add("Test2");
stest1="Test1"
'Dim item1 As ListViewItem = .cblgenre.FindItemWithText(stest1)
'    If (item1 IsNot Nothing) Then
'       item1.Checked = True
'    End If
.Showdialog()
End with
End sub

Gruss Caddy