er () i As Integeri = 1 To 10 . PSet (x0 - 5 + Int (Rnd * 11), y0 - 5 + Int (Rnd * 11)), Picture1.ForeColorSubSub Picture9_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single) = X = YButton = 2 Then PopupMenu editSubSub Picture9_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single) Button = 1 Then.Left = Picture9.Left + X - x0.Top = Picture9.Top + Y - y0IfSubSub Text1_Change ( ). Caption = Text1.TextLabel1.Width + 10> Text1.Width Then Text1.Width = Label1.Width + 10SubSub Picture5_Click (Index As Integer) (Index). DrawWidth = Index + 1 = Index + 1SubSub Picture6_MouseDown (Index As Integer , Button As Integer, Shift As Integer, X As Single, Y As Single) Button = 1 Then (1). BackColor = Picture6 (Index). BackColor (0). BackColor = Picture6 (Index). BackColorIfSubSub Picture1_Resize (). Value = 0.Value = 0Picture1.Width> Picture2.ScaleWidth - 17 Then.Max = Picture1.Width - Picture2.ScaleWidth + 17.Enabled = True.Enabled = FalseIfPicture1.Height> Picture2.ScaleHeight - 17 Then.Max = Picture1 . Height - Picture2.ScaleHeight + 17.Enabled = True.Enabled = FalseIfSubSub VScroll1_Change (). Top =-VScroll1.ValueSubSub VScroll1_Scroll (). Top =-VScroll1.ValueSubSub HScroll1_Change (). Left =-HScroll1.ValueSubSub HScroll1_Scroll (). Left =-HScroll1.ValueSubSub new_Click () Text1.Visible = True Then TextExitPicture9.Visible = True Then PictureExit.Picture = Nothing.BackColor = vbWhite.Width = 441.Height = 361 (1). BackColor = vbBlack (0). BackColor = vbWhite.Caption = "Точковий малюнок - GraphEdit" SubSub open_Click () Text1.Visible = True Then TextExitPicture9.Visible = True Then PictureExitError Resume Next.ShowOpenErr Then Exit Sub.Caption = CommonDialog1.FileTitle + "- GraphEdit". Picture = LoadPicture (CommonDialog1.FileName) (1). BackColor = vbBlack (0). BackColor = vbWhiteSubSub save_Click () Text1.Visible = True Then TextExitPicture9.Visible = True Then PictureExit.FileName = Left $ (Form1.Caption, Len (Form1 . Caption) - 12) Error Resume Next.ShowSaveErr Then Exit SubCommonDialog1.FileName <> "" Then.Caption = CommonDialog1.FileTitle + "- GraphEdit" Picture1.image, CommonDialog1.FileNameIfSubSub print_Click () Text1.Visible = True Then TextExitPicture9.Visible = True Then PictureExit.PaintPicture Picture1.image, 0, 0.EndDocSubSub size_Click (). Text1.Text = Picture1.Width.Text2.Text = Picture1.Height.Show vbModalSubSub clear_Click () Text1.Visible = True Then TextExitPicture9.Visible = True Then PictureExit.Picture = Nothing.BackColor = Picture8 (0). BackColorSubSub copy_Click () Picture9.Visible = True Then.clear.SetData Picture9.imageIfSubSub cut_Click () Picture9.Visible = True Then.clear. SetData Picture9.image.Visible = FalseIfSubSub paste_Click () (0). Value = True.Picture = Clipboard.GetData (). Move -1,-1Picture1.Width
