Jim Brown #1 Heres a way ...m=MouseX() Select True Case (m>=1 And m<=4) Case m=5,m=6,m=7 Case m=8,(m=9 Or m=10) End Select Print Next