try :
Code:
Dim itemSelected As Boolean

Private Sub ListView1_Click()
  itemSelected = True
End Sub

Private Sub Command1_Click()
  If itemSelected = True Then
    'execute code
  End If
End Sub