Ciao Harry,
ti ho predisposto un esempio che non risolve il problema, peraltro da te solo accennato, ma che ti indica il modo di procedere:
Inserisci in una Frm una ListBox, due CmdButton e due Txt:
codice:
Option Explicit
'-------------------------------------------------------------------
Private Sub Command1_Click()
If Len(Text1.Text) > 0 Then List1.AddItem Text1.Text & ".exe"
Text1.SetFocus
End Sub
'-------------------------------------------------------------------
Private Sub Command2_Click()
Dim i As Integer
Dim vCompara As Variant
For i = 0 To List1.ListCount - 1
' se la voce di Lbox è selezionata effettua il confronto:
If List1.Selected(i) Then vCompara = StrComp(List1.Text, ((Text1.Text) & ".exe"), vbTextCompare)
' se il confronto dà come risultato "uguale (0)" porta la selezione nella Txt2:
If vCompara = 0 And List1.Selected(i) Then Text2.Text = List1.Text
' se il confronto dà come risultato "diverso" svuota la Txt2:
If vCompara <> 0 And List1.Selected(i) Then Text2.Text = ""
' se non è avvenuta una selezione svuota la Txt2:
If Not List1.Selected(i) Then Text2.Text = ""
Next i
End Sub
Ciao.