Sub
Technic_Paint()
Set
G1 =
Me
.GetGridByName(
"Main"
)
Call
G1.DRAWTEXT(100,100,
"100,100"
,
RGB
(255, 0, 0))
Call
G1.DRAWTEXT(200,200,
"200,200"
,
RGB
(255, 0, 0))
Call
G1.DRAWTEXT(400,400,
"400,400"
,
RGB
(255, 0, 0))
Call
G1.DRAWTEXT(600,600,
"600,600"
,
RGB
(255, 0, 0))
Call
G1.DRAWTEXT(800,600,
"800,600"
,
RGB
(255, 0, 0))
Call
G1.DRAWTEXT(1000,600,
"1000,600"
,
RGB
(255, 0, 0))
Call
G1.DRAWTEXT(1200,600,
"1200,600"
,
RGB
(255, 0, 0))
Call
G1.DRAWTEXT(1400,600,
"1400,600"
,
RGB
(255, 0, 0))
Call
G1.DRAWTEXT(1600,600,
"1600,600"
,
RGB
(255, 0, 0))
Set
G1 =
Nothing
End
Sub