mouse double click

is someone know how to make a double click with mouse?

Global LastClick% = 0
Global DoubleClickDelay% = 200

While Not KeyDown(1)
	If MouseDown(1)
		If MilliSecs() < LastClick + DoubleClickDelay
			Print "Double-click detected"
		EndIf
		While MouseDown(1)
			;call your 'Update game' function etc here if you need to...
		Wend
		LastClick = MilliSecs()
	EndIf
Wend

thanks GfK! maybe it will be good to have this function in a future release of blitz

EDIT : Wrong forum