rawWidth = 1.DrawMode = vbInvert.DrawStyle = vbDotIfOption1 (1). Value = True Then.DrawWidth = 5.ForeColor = Picture8 (0). BackColor.PSet (X, Y) IfOption1 (2). Value = True Then . FillStyle = 0.FillColor = Picture1.ForeColorPicture1.hdc, X, Y, Picture1.Point (X, Y), 1.FillStyle = 1IfOption1 (3). Value = True Then (1). BackColor = Picture1.Point (X , Y) IfOption1 (4). Value = True Then.PSet (X, Y) IfOption1 (5). Value = True Then.DrawWidth = 1.Interval = 10IfOption1 (7). Value = True Or Option1 (8). Value = True Then.DrawMode = vbInvertIfOption1 (9). Value = True Then.AutoRedraw = False.DrawMode = vbInvertIf = X = Y = True = TrueSubSub Picture1_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single) picMouseDown = False Then Exit SubOption1 (0). Value = True Or Option1 (6). Value = True Or Option1 (8). Value = True ThenpicDrawFirst = False Then.Line (x0, y0) - (x1, y1),, BIf . Line (x0, y0) - (X, Y),, BIfOption1 (1). Value = True Or Option1 (4). Value = True Then.Line - (X, Y) IfOption1 (3). Value = True Then (1). BackColor = Picture1.Point (X, Y) IfOption1 (5). Value = True Then = X = YIfOption1 (7). Value = True ThenpicDrawFirst = False Then.Line (x0, y0) - (x1, y1 ) If.Line (x0, y0) - (X, Y) IfOption1 (9). Value = True ThenpicDrawFirst = False ThenPicture1.hdc, x0, y0, x1, y1IfPicture1.hdc, x0, y0, X, YIf = X = Y = FalseSubSub Picture1_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single) picMouseDown = False Then Exit Subyt As Single, yd As Single, xl As Single, xr As SingleOption1 (0). Value = True ThenpicDrawFirst = False Then.Line (x0, y0) - (x1, y1),, BIf.DrawMode = vbCopyPen.DrawWidth = picDrawWidth.DrawStyle = vbSolidx0
