D
Dave D-C
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
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