Article ID: 108812
Article Last Modified on 12/9/2003
Sub Form_Load ()
form1.Show 'In Load event, must show form before Print works
picture1.ForeColor = QBColor(1)
picture1.BackColor = QBColor(11)
picture1.Print "color1"
form1.ForeColor = QBColor(1)
form1.BackColor = QBColor(12)
form1.Print "color1"
list1.ForeColor = QBColor(1)
list1.BackColor = QBColor(11)
list1.AddItem "color1"
MsgBox "click to see next color"
picture1.ForeColor = QBColor(2)
picture1.BackColor = QBColor(10) 'This BackColor erases picture1
picture1.Print "color1"
form1.ForeColor = QBColor(2)
form1.BackColor = QBColor(13) 'This BackColor erases form1
form1.Print "color1"
list1.ForeColor = QBColor(2)
list1.BackColor = QBColor(10) 'This BackColor doesn't erase List1
list1.AddItem "color2"
MsgBox "click to see next color"
picture1.ForeColor = QBColor(4)
picture1.BackColor = QBColor(14) 'This BackColor erases picture1
picture1.Print "color1"
form1.ForeColor = QBColor(4)
form1.BackColor = QBColor(8) 'This BackColor erases form1
form1.Print "color1"
list1.ForeColor = QBColor(4)
list1.BackColor = QBColor(14) 'This BackColor doesn't erase List1
list1.AddItem "color3"
End Sub
Additional query words: 2.00 3.00 delete remove blank out
Keywords: KB108812