VB取得ListBox選取項目的值、勾取項目的值

選取項目：

VB2008：

If ListBox1.SelectedIndex = -1 Then
    Exit Sub
End If
MsgBox (ListBox1.Items(ListBox1.SelectedIndex))

VB6：

If List1.ListIndex = -1 Then
    Exit Sub
End If
MsgBox List1.List(List1.ListIndex)

勾取項目：

VB2008：

If CheckedListBox1.CheckedItems.Count = 0 Then
    Exit Sub
End If
For i = 0 To CheckedListBox1.CheckedItems.Count - 1
    MsgBox(CheckedListBox1.CheckedItems.Item(i))
Next