codice:
Private Sub lswIntel_DblClick()
On Error Resume Next
degug.Print lswIntel.SelectedItem.Index
   Select Case Sender
      Case Is = "ricCodPers"
         frmMain.txtColl(0).Text = lswIntel.SelectedItem
      Case Is = "ricCodTurn"
         frmMain.txtTurn(0).Text = lswIntel.SelectedItem
   End Select
   Unload Me
End Sub
basta che guardi le istruzioni in rosso il resto è in +