|
Dim As Integer w, h
|
|
|
|
Screeninfo w, h
|
|
'move left
|
|
Locate , Pos(0) - 1
|
|
'move right
|
|
Locate , Pos(0) + 1
|
|
'move up
|
|
Locate Csrlin - 1
|
|
'move down
|
|
Locate Csrlin + 1
|
|
'beginning of line
|
|
Locate , 1
|
|
'end of line
|
|
Locate , h
|
|
'top left corner
|
|
Locate 1, 1
|
|
'bottom right corner
|
|
Locate w, h
|