How to find "Listindex" of DBList?

[mohsen313]

Hi
I use DBList1 in my program and I want to find the index of selected item then move the current data to it. For example I want to Use this code:

Private Sub DBList1_Click()
Data1.Recordset.Move(X)
Data1.Refresh
End Sub

How can I find X?