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/24/04 4:51:36 PM