when i click on "one" but error comes
ole iDispath code....................




geni but have these codes

If thisform._agent.load("Genie","genie.acs")
thisform._agent.setActiveAgent("Genie")
thisform._agent.show(Rand() * 400, Rand() * 400)
thisform.lbxAnimations.Requery()
Else
=MessageBox( GENIE_NOT_INSTALLED_LOC, MB_ICONSTOP)
Endif