ピクチャコントロール
Picture1.AutoRedraw = True
Picture1.Cls
Picture1.Scale (0, 0)-(3000, 3000)
Picture1.DrawWidth = 8
Picture1.FillStyle = 4
Picture1.PSet (500, 500), vbRed
Picture1.DrawWidth = 2
Picture1.Circle (1000, 1000), 500, RGB(255, 128, 0)
Picture1.Line (1000, 1000)-(2000, 2000), vbGreen, BF
Picture1.CurrentX = 300
Picture1.CurrentY = 100
Picture1.Print "Test"