Sub Command1_Click()
RichTextBox1.Text = ""
For x = 0 to 15
RichTextBox1.SelColor = QBColor(x)
RichTextBox1.SelText = "Color" & x & vbcrlf
‘ yeni text ekle.
Next x
End Sub
Sub Command2_Click()
Picture1.Cls ‘ PictureBox temizle.
For x = 0 To 15
Picture1.ForeColor = QBColor(x) ‘geçerli rengin konulmasıı
Picture1.Print "Color" & x ‘ yeni text ekle.
Next x
End Sub