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

解決

目玉 2011-03-06 01:13:06 No: 102798

こんにちわ
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 09:12:50 No: 102799

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