Hello,
I have an Image on a Userform that I want to flag/unflag
by changing the border color red/black. (Word97/WIN98)

Private Sub Image1_Click()
If Image1.BorderColor = RGB(0, 0, 0) Then
Image1.BorderColor = RGB(255, 0, 0)
TextBox1.Value = "red"
Else
Image1.BorderColor = RGB(0, 0, 0)
TextBox1.Value = "blk"
End If
DoEvents ' doesn't fix it
End Sub

The text "red"/"blk" works, but the color doesn't change.
"DoEvents" was a feeble try.
TIA, Dave


----== Posted via Newsfeeds.Com - Unlimited-Unrestricted-Secure Usenet News==----
http://www.newsfeeds.com The #1 Newsgroup Service in the World! 120,000+ Newsgroups
----= East and West-Coast Server Farms - Total Privacy via Encryption =----