double click list box to get text on line

how do I get text on a line in list box if I double click the line.
I want to get the text and display it at like 96 point font window

trying to double click a line of text in list box and then display the text, this is not working.

[code] Dim row,column as Integer
row=Me.RowFromXY(System.MouseX - Me.Left - Self.Left - me.TrueWindow.Left, System.MouseY - Me.Top - Self.Top -me.TrueWindow.Top)

msgbox, row[/code]

here is how I do it…
in the CellClick Event the listbox

me.ListIndex=row // insure the row is current, doesn't always happen

then in the DoubleClick event

// me.listindex is what you double clicks (seeing as you had to 'single' click it first :)
msgbox me.cell(me.listindex,0)