User Controls (VISTA)

[basti42]

hello!
i've got this control from someone else
and its free for use but there is lack on the code:
1. try to clicked the button and show the msgbox
2. click the ok button on msgbox
3. still the vista button will remain to its hover state

i already modify the mouseup_event but still nothing happens
can you correct the error?
pls see attached and save it as ".ctl"
tnx

[Hack]

Did this "somebody else" create the control?

[basti42]

yes, and its for free to use...
the only lack is just what i said on the first msg
anybody can correct that?

[Edgemeal]

Well if you don't care what the button looks like when the msgbox is up one workaround I use with my own UC button is to disable it first, then enable it afterwards since my UC's Enable property redraws the whole button to it's normal state.

Private Sub GradButn_Click()
GradButn.Enabled = False
MsgBox "Some text"
GradButn.Enabled = True
End Sub

Just a thought.

[basti42]

nope there is missing but i don't know where part
i just think its on mouseUP_event but i tried to modify and didn't work