Code:
Private Sub List1_DblClick()
MsgBox List1.Text
End Sub
is this what your talking about ?