tell application "VirtueDesktops" to set ad to title of active desktop

if (ad = "one") then
	set nad to "2"
else if (ad = "two") then
	set nad to "3"
else if (ad = "three") then
	set nad to "4"
else if (ad = "four") then
	set nad to "1"
end if

tell application "VirtueDesktops" to activate
tell application "System Events" to keystroke "o" using {command down, option down}
tell application "System Events" to keystroke nad using {command down, option down}