给你一个简单例子：
Private Sub Form_Load()
List1.Clear
List1.AddItem "1"
List1.AddItem "2"
List1.AddItem "3"
End Sub
Private Sub List1_Click()
If List1.ListIndex = 0 Then
MsgBox "你点了第1行"
ElseIf List1.ListIndex = 1 Then
MsgBox "你点了第2行"
ElseIf List1.ListIndex = 2 Then
MsgBox "你点了第3行"
End If
End Sub
双击控件，在代码面的右上方选择该控件的事件，然后在里面写代码就行了
弹出窗口代码：
窗体名.Show
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024