Проект Код графического редактора:

Код графического редактора: Dim R, G, B, s Dim d As Integer ‘Процедура записи рисунка в файл Private Sub Command1_Click() Save Picture Picture1.Image, “C:\Мои документы\Мои рисунки\Рисунки  приложений\Рисовальщик.bmp” End Sub Private Sub Command2_Click() ‘ Завершение работы End End Sub Private Sub Command3_Click() ‘ Удаление рисунка Picture1.Cls End Sub Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As  Single) ‘ Точка для последующей работы метода Line Picture1.Pset(X,Y) ‘ Разрешение рисования S=1 End Sub Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As  Single) ‘ Ширина линии рисования d=Val(Text1.Text) Picture1.DrawWidth=d If s=1 Then Picture1.Line – (x,y),RGB(R,G,B) ‘ Рисование End Sub Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) ‘ Запрет рисования при опускании кнопки s=0 End Sub ‘Процедура выбора цвета линий Select Case Index Case 0: Label2. Caption = VScroll(0).Value: R=VScroll(0).Value Case 1: Label3. Caption = VScroll(1).Value: G=VScroll(1).Value Case 2: Label4. Caption = VScroll(2).Value: B=VScroll(2).Value End Select Picture2. BackColor = RGB (R, G, B) End Sub