Private Sub lstGuiasRolDia_DragDrop(Source As Control, X As Single, Y As Single)
	Cuando el usuario suelta el botn izquierdo, calcula la nueva posicin del
ndice que obtuvo en el procedimiento anterior
        ListRowMove Source, DragIndex, ListRowCalc(Source, Y)
End Sub
