Te doy un ejemeplo:
Código VB:
Ver originalPrivate Sub Cmd_Add_Paises_Click()
List1.AddItem "Japón"
List1.AddItem "Rusia"
List1.AddItem "Italia"
List1.AddItem "China"
List1.AddItem "Argentina"
End Sub
Private Sub Cmd_InsLlblName_Click()
Lbl_Paist.Caption = Mylist.List(Mylist.ListIndex)'Aqui enviamos al label el nombre del item 'seleccionado
End Sub