窗体要有三个滚动条，分别调整画笔中的红色成份、绿色成份与蓝色成份。按下鼠标左键时开始画图，松开鼠标左键则停止画图。

Dim KG As Boolean  ' 设置开关
Dim r As Integer
Dim g As Integer
Dim b As Integer

Private Sub Command1_Click()
Form1.Cls
End Sub

Private Sub Form_Click()
 
  r = HScroll1.Value
  g = HScroll2.Value
  b = HScroll3.Value
   Label2.BackColor = RGB(r, g, b) '调色板颜色
  
  ForeColor = RGB(r, g, b)      ' 线条颜色
End Sub

Private Sub Form_Load()
  DrawWidth = 2                   ' 线条宽度为2
  
  HScroll1.Max = 255
  HScroll1.Min = 0
  HScroll2.Max = 255
  HScroll2.Min = 0
  HScroll3.Max = 255
  HScroll3.Min = 0
 
 
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
 KG = True
 
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 If KG = True Then
 PSet (X, Y)   ' 画点
 End If
 
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
KG = False
 
End Sub

Private Sub HScroll1_Change()
  r = HScroll1.Value
  g = HScroll2.Value
  b = HScroll3.Value
   Label2.BackColor = RGB(r, g, b) '调色板颜色
  
  ForeColor = RGB(r, g, b)      ' 线条颜色
End Sub

Private Sub HScroll2_Change()
  r = HScroll1.Value
  g = HScroll2.Value
  b = HScroll3.Value
   Label2.BackColor = RGB(r, g, b) '调色板颜色
  
  ForeColor = RGB(r, g, b)      ' 线条颜色
End Sub

Private Sub HScroll3_Change()
  r = HScroll1.Value
  g = HScroll2.Value
  b = HScroll3.Value
   Label2.BackColor = RGB(r, g, b) '调色板颜色
  
  ForeColor = RGB(r, g, b)      ' 线条颜色
End Sub