Runtime error 430

Hi.

Does anyone have any experience with the runtime error 430. Class does not support automation or specified interface?

Any help would be appreciated.

Thanx all.

what code caused this error? I've had it before, but I don't remember what it is.

That's one of those bugger errors that has about a million causes. Need more info. What controls are you using? Where does the error get raised? Etc...

I'm using the Microsoft TTS system with XVoice.dll component. Here is the relevant code.

VB Code:

For count = 1 To DirectSS1.CountEngines
        If (DirectSS1.Gender(count) = 2) And (gotMale = False) Then
            maleIndex = count
            gotMale = True
        End If
        If (DirectSS1.Gender(count) = 1) And (gotFemale = False) Then
            femaleIndex = count
            gotFemale = True
        End If
    Next
    voice = modDataStore.getVoiceOver
    MsgBox ("Male Index: " & maleIndex)
    MsgBox ("Female Index: " & femaleIndex)
    Select Case voice
        Case "Professional Male"
            DirectSS1.Select (maleIndex)
        Case "Professional Female"
            DirectSS1.Select (femaleIndex)
        Case "Standard Male"
            DirectSS1.Select (maleIndex)
        Case "Standard Female"
            DirectSS1.Select (femaleIndex)
        Case Else
            DirectSS1.Select (maleIndex)
    End Select

The problem arises when i reach the line DirectSS1.Select(. . .)

I don't experience the problem on my system (XP), but when i try it on anpther system (ME) the problem occurs. This is strange because i have used this component in another small test app and it worked.

Thanx in advance.

Never used the control. Sorry... :(

Does anyone know anything about this?