Como remover um item selecionado de uma ListBox

[GuidoSanfoneiro]

Tenho uma ListBox com “n” itens.

Preciso selecionar um deles e remover da lista.

Consegui remover o item assim:

oListBox.getModel().removeItem(i)

Agora preciso passar o “i” do item selecionado

[GuidoSanfoneiro]

Sub RetirarItem

Dim oListBox As Object
Dim iItemPos As Integer

oListBox = oDlgNovoPedido.GetControl("LtbItens")

iItemPos = oListBox.SelectedItemPos

oListBox.getModel().removeItem(iItemPos)	

End Sub