Private Sub lstGuiasRolDia_MouseDown(Button As Integer, Shift As Integer,  X As Single, Y As Single)
Si el botn es el izquierdo del mouse, entonces, calcula la posicin del ndice de la lista en coordenadas X, Y, e inicia el proceso de Drag
        If Button = vbLeftButton Then
            DragIndex = ListRowCalc(lstGuiasRolDia, Y)
            lstGuiasRolDia.Drag
        End If
End Sub
