How to display Office Assistant through VB Application

Form References I have added this ...
   Microsoft Office 9.0 Object Library

                            or

Microsoft Office 11.0 Object Library
And I wrote this code...

Dim asstnt As Office.Assistant

Private Sub Command1_Click()
    asstnt.On = True
    asstnt.Animation = msoAnimationGreeting
End Sub
But it's giving an error

Run-Time Error :'91'
Object variable or with block variable not set..

What to do

____________________________
.....Joy

Hi

I haven't tried this, but it look like you need to initialise the object. To do this see the code below

Dim asstnt As Office.Assistant Private Sub Command1_Click()     if asstnt is nothing then         set asstnt = new office.assistant     endif     asstnt.On = True     asstnt.Animation = msoAnimationGreeting End Sub

Steve  

Thanks Steve
  
         But the problem lies somewhere else...

When I use

             Set asstnt= New Office.Assistant

It gives a compile error : "Invalid Use of New keyword"

____________________________
.....Joy

Try this link

http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=2770&lngWId=1

Steve