Use the Option1_KeyUp event
It works everytime. -Never mind what
state of the Option1 buttom.
I quess, when using a click event,
the focus will not leave the Option1
until the mouse is fully relieved. At this time,
the text1.SetFocus has already been passed.
-The effect is, the focus will not switch as long as the
Option1 has the focus.

ako



"asd987"  skrev i en meddelelse 
news:co2kj0$k7b$1{at}news5.zwoll1.ov.home.nl...
> Hello,
>
> Yesterday Iposted a message called "SetFocus". After reading
the reactions 
> I did some tests.  Bottomline of the tests isthat when Option1.Value = 
> True the following event results in an errormessage:
>
> Private Sub Option1_Clcik()
> Text1.SetFocus
> End Sub
>
> If Option1.Value = False the Option1_Click() works without a problem. How 
> is this possible?????
>
> I tested the following:
>
> Form1.frm contains
> Text1.Text
> Text2.Text
> Frame1 containing Option1 and Option2.
>
> Private Sub Form_Load()
> Option1.Value = True
> Text1.SetFocus
> End Sub
>
> Private Sub Option1_Clcik()
> PlaySound
> Text1.SetFocus
> End Sub
>
> Private Sub Option2_Clcik()
> PlaySound
> Text1.SetFocus
> End Sub
>
> Private Sub PlaySound()
> Select Case Option.Value
> Case True
> WindowsMediaPlayer1.Url = "a.mp3"
> Case False
> WindowsMediaPlayer1.Url = "b.mp3"
> End Select
> End Sub
>
>
>
---
þ RIMEGate(tm)/RGXPost V1.14 at BBSWORLD * Info{at}bbsworld.com

---
 * RIMEGate(tm)V10.2áÿ* RelayNet(tm) NNTP Gateway * MoonDog BBS
 * RgateImp.MoonDog.BBS at 11/26/04 11:40:43 AM