5 private px,py,code,excode
6 private sub class_initialize
9 set wnd = obj.mainframe
11 .open("KEYDOWN EVENT")
19 code = wnd.event.parameter
20 excode = wnd.event.extparameter
22 case 87 py = py - 10 ' W
23 case 83 py = py + 10 ' S
24 case 65 px = px - 10 ' A
25 case 68 px = px + 10 ' D
30 with wnd.canvas.layer(0)
33 .text 0,0,code & ":" & excode
42 set obj = createobject("seraphyscripttools.instance")