Activex Componet Cant Create Object

[acms]

Im making a Msn Caption changer and with some other functions like spamming but i get Activex Componet Cant Create Object when debugging on my own computer
my code is below

Public WithEvents msn As MessengerAPI.Messenger
 
Private Sub Command1_Click()
msn.MyContacts = List1
End Sub
 
Private Sub Form_Load()
msn = MessengerAPI.Messenger
With Combo1
.AddItem "Invisible"
.AddItem "BRB"
.AddItem "Busy"
.AddItem "Out To Lunch"
.AddItem "OTP"
End With
End Sub
Private Sub combo1_click()
If Combo1 = "Invisible" Then
msn.MyStatus = MISTATUS_INVISIBLE
End If
If Combo1 = "Brb" Then
msn.MyStatus = MISTATUS_BE_RIGHT_BACK
End If
If Combo1 = "Busy" Then
msn.MyStatus = MISTATUS_BUSY
End If
If Combo1 = "Out To Lunch" Then
msn.MyStatus = MISTATUS_OUT_TO_LUNCH
End If
If Combo1 = "OTP" Then
msn.MyStatus = MISTATUS_ON_THE_PHONE
End If
End Sub

[LaVolpe]

Two things
1. Have you included the reference in your project to the MessengerAPI? This is a common mistake when one simply copies a form to another project & forgets to check the references.
2. Shouldn't line 8 be: Set msn = New MessengerAPI.Messenger ?

[acms]

Two things
1. Have you included the reference in your project to the MessengerAPI? This is a common mistake when one simply copies a form to another project & forgets to check the references.
2. Shouldn't line 8 be: Set msn = New MessengerAPI.Messenger ?

yea typo on my part i assure u the code is my own
i had it working before and the refernce is added but now since i reinstalled msn when i try to add the reference messenger api type libary i get error loading the dll

[LaVolpe]

Sounds like the problem evolved to a system one. First thing to do is to try uninstalling messenger and reinstalling, then rebooting, and see if problem goes away.

[acms]

Sounds like the problem evolved to a system one. First thing to do is to try uninstalling messenger and reinstalling, then rebooting, and see if problem goes away.

no still the same problem