Sub bottom
initRobot
Dim x,y As Int
x = MainForm.WindowLeft + HTMLEditor1.Left + 100 ' to get inside editor pane
y = MainForm.WindowTop + HTMLEditor1.Top + 160
robot.RunMethod("mouseMove",Array(x,y))
robot.RunMethod("mousePress",Array(1)) ' left click
robot.RunMethod("mouseRelease",Array(1)) ' release left button
robot.RunMethod("keyPress",Array(0x11)) ' ctrl
robot.RunMethod("keyPress",Array(0x23)) ' end
robot.RunMethod("keyRelease",Array(0x23)) ' end
robot.RunMethod("keyRelease",Array(0x11)) ' ctrl
End Sub