请教怎么取得listBox当前选中的文本内容

请问如何取得listBox当前选中的文本内容？
我是这样想的,ListBox的名称为lbProgramName：
Dim   str   as   String
str=lbProgramName.SelectedItem
或者
str=lbProgramName.text
好像都不行，该如何取？


[解决办法]
str=lbProgramName.SelectedItem.ToString()

应该能取的到！！！
[解决办法]
先判断 SelectedItem 是否为空引用，然后再获取。

Dim str As String

if lbProgramName.SelectedItem is Nothing then
str = String.Empty
else
str = lbProgramName.SelectedItem.ToString()
end if