MOUSE, LISTBOX...

FABIOPM 20/01/2005 13:14:46
#61982 Resposta escolhida

'declarations:
Dim Tmp_Text As String
Dim Old_index As Integer
Dim New_index As Integer

'mouse events:
Sub List1_MouseDown (Button As Integer, Shift As _
Integer, X As Single, Y As Single)
Old_index = List1.ListIndex
Tmp_text = List1.text
End Sub

Sub List1_MouseUp (Button As Integer, Shift As _
Integer, X As Single, Y As Single)
New_index = List1.ListIndex
If Old_index <> New_index Then
List1.RemoveItem Old_Index
List1.AddItem TmpText, NewIndex
End If
End Sub

espero ter ajudado...

Fabio...