Originariamente inviato da kataklisma
Prova con:

codice:
Public Sub Conn2()
    Dim I As Integer
      I = Labsys.Caption
    form1.list1.Selected(I) = True
 End Sub
non serve "Form1" davanti, viene svolto sullo stesso form