Formulários Access

[cadeveloper 0]

Caros senhores,Como faço para apagar um item de uma listbox quando clicar 2 vezes?Obs.: estou utilizando o access 2000!Sei que no access xp tem a função obj.removeItem(indice), mas no 2000 não tem <_< Como faço agora?

[cadeveloper 0]

Já consegui !!!!

 

Fiz o seguinte:

 

Private Sub cmdIncluirPasta_Click()	'Variáveis Utilizadas	Dim strNovaLista As String		'Atribui o produto as pastas a serem controladas	If lstPasta.ListIndex > -1 Then		lstDisponivel.RowSource = lstDisponivel.RowSource & lstPasta.Column(0, lstPasta.ListIndex) & ";" & lstPasta.Column(1, lstPasta.ListIndex) & ";"		'lstPasta.RemoveItem (lstPasta.ListIndex)		For I = o To lstPasta.ListCount - 1			If lstPasta.Column(0, I) <> lstPasta.Column(0, lstPasta.ListIndex) Then				strNovaLista = strNovaLista & lstPasta.Column(0, I) & ";" & lstPasta.Column(1, I) & ";"			End If		Next I		lstPasta.RowSource = ""		lstPasta.RowSource = strNovaLista	End IfEnd Sub