Private Sub Form_Load()
Picture1.DrawWidth = HScroll1.Value
End Sub
Private Sub HScroll1_Change()
Picture1.DrawWidth = HScroll1.Value
End Sub
Private Sub Label0_Click(Index As Integer)
If Index = 4 Then
Form2.Show
Else
Picture1.ForeColor = Label0(Index).BackColor
End If
End Sub
Private Sub Picture1_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)
If Button = 1 Then Picture1.PSet (X,Y)
End Sub
Private Sub Command1_Click()
Form2.Hide
Form1.Picture1.ForeColor = Shape1.FillColor
End Sub
Private Sub Form_Load()
End Sub
Private Sub HScroll1_Change(Index As Integer)
Dim r As Integer,b As Integer,g As Integer
r = HScroll1(0).Value
g = HScroll1(1).Value
b = HScroll1(2).Value
Shape1.FillColor = RGB(r,g,b)
End Sub
Private Sub HScroll1_Scroll(Index As Integer)Call HScroll1_Change(Index)End Sub