新建From1（窗体），新建ListView1（ListView），代码：

Private Sub ListView1_Click()
    If Not ListView1.selectedItem Is Nothing Then ' 检查是否有选中的项目
        ' 如果有选中的项目，获取其索引并进行相应操作
        MsgBox "你点击的项目索引是: " & ListView1.selectedItem.Index, vbInformation, "项目索引"
    Else
        ' 如果没有选中的项目，给出提示
        MsgBox "没有选中任何项目，请选择一个项目后再点击。", vbExclamation, "提示"
    End If
End Sub