تغيير الصفحة بالنقر وسحب الفأرة

[center][/center]
if e_Type==0 then
MousePos = "LeftButtonPressed"
MouseMove = "Once"
else
MousePos = "LeftButtonNotPressed"
MouseMove = "Not Once"
end[center][/center]

[center]   [/center]
if MousePos == "LeftButtonPressed" then
    if MouseMove == "Once" then
    PosNextPage = e_X+100
    PosPrevPage = e_X-100
    MouseMove = "Not Once"
    end
   
    if e_X>=PosNextPage then
    MousePos = "LeftButtonNotPressed"
    Page.Navigate(PAGE_NEXT);
    end
   
    if e_X<=PosPrevPage then
    MousePos = "LeftButtonNotPressed"
    Page.Navigate(PAGE_PREVIOUS);
    end
end