Office アシスタントを再度呼び出すとエラー462が発生する

解決

目玉  2011-03-05 16:13:06  No: 102798  IP: [192.*.*.*]

こんにちわ
VB6.0からOfficeXPのアシスタントを連続して呼び出すとエラー462
リモートサーバーがないか、使用できる状態ではありません。  というエラーが発生します。
コードは

    Dim myAnswer As Long
    
        With Assistant
                        'キャラクタを設定します。
                        .FileName = "DOLPHIN.ACS"
                        'アシスタントを表示します。
                        .Visible = True
                        'アニメーションの種類を設定します。（メールを送る）
                        .Animation = msoAnimationThinking
                        'アシスタントを表示する位置を指定します。
                        .Left = 0
                        .Top = 0
                        'アシスタントのアニメーションに対応した音を鳴らします。
                        .Sounds = True
                        'アシスタントが入力作業の邪魔をしないように設定します。
                        .MoveWhenInTheWay = True
        End With
        
        Set myBalloon = Assistant.NewBalloon
        
              'バルーンの内容を設定します。
        With myBalloon '←(2)
                        '見出し
                        .Heading = "操作方法説明"
                        'バルーンの中のテキスト
                        .Text = "は〜い"
                        'アイコン（ヒントのアイコン）
                        .Icon = msoIconTip
                        '確認を促す下部のボタン（ＯＫ）
                        .Button = msoButtonSetOK
                        .Show
        End With
        
        Set myBalloon = Nothing
        Assistant.Visible = False
 
1回目はエラー無く実行されるのですが、フォームを閉じずに再度実行すると

実行時エラー  462
リモートサーバーがないか、使用できる状態ではありません。
が発生します。
どのようにしたら実行できるか、ご教示宜しくお願い致します。

編集 削除
目玉  2011-03-06 00:12:50  No: 102799  IP: [192.*.*.*]

こんばんわ
ＭＳＡｇｅｎｔを使用する事にしました。
大変お騒がせを致しました。

編集 削除