Если я правильно понял про "рамку выделения" то вот может поможет...
Graphics 320,240,32,2
Repeat
Cls
If MouseHit(1) Then
x1=MouseX()
y1=MouseY()
EndIf
If MouseDown(1) Then
x2=MouseX()
y2=MouseY()
Line x1,y1,x2,y1
Line x1,y2,x2,y2
Line x1,y1,x1,y2
Line x2,y1,x2,y2
EndIf
Flip
Until KeyHit(1)