よろしく、お願いします。
現在ＶＢ６でプログラムを組んでいますが、command1 ボタンを押したら
Form_MouseMove内のイベントを発生させるようにしたいのですが、何か
良い方法はあるでしょうか。お教え下さい。
例えば、Form_MouseMove内に記述された「円」をcommand1ボタンを押す事で
表示したいのです。よろしく、お願いします。

> よろしく、お願いします。
> 現在ＶＢ６でプログラムを組んでいますが、command1 ボタンを押したら
> Form_MouseMove内のイベントを発生させるようにしたいのですが、何か
> 良い方法はあるでしょうか。お教え下さい。
> 例えば、Form_MouseMove内に記述された「円」をcommand1ボタンを押す事で
> 表示したいのです。よろしく、お願いします。

なにがやりたいのかがよく解りませんが、通常のForm_MouseMove イベントは無視して
Command1_Click したら、Form_MouseMove イベントを有効にしたいと言うことなら
下記のようにフラグを設定すればできるのでは。

Private frgCircle As Boolean

Private Sub Command1_Click()
   frgCircle = Not frgCircle
End Sub

Private Sub Form_MouseMove(Button As Integer, _
                            Shift As Integer, X As Single, Y As Single)
   If frgCircle Then
      Debug.Print "円を描く"
   End If
End Sub

花ちゃん　様
早速、ご返事をいただき、ありがとうございます。
実は、今、ゴムバンドのように伸びる矢印を作成したのですが、
その使用方法は、以下の通りなのです。
(1)マウスボタンを押して、矢印を引く最初の位置を決める。
(2)マウスの左ボタンを押しながら動かして線を伸ばしていく。
(3)マウスの左ボタンを離したところで矢印の表示が終わる。
(1)〜(3)の流れについては、プログラムが組み終わり、さらに
(3)に続いて、「F2キー」を押す事でマウスが決まった位置に戻
るようにもなっています。
この「F2キー」を押すという操作を、マウスボタンを押した操作
と同等にできないものかと現在考えています。
これが可能になれば、「F2キー」を押した後、ただマウスを押す
ことなく、ただ動かすだけで線が引けます。
こんな事を考えての質問だったのですが、質問の内容が抽象的で
すいませんでした。
現在のところ、いただいたアイデアを何とか工夫し、生かそうと
思っています。・・・・・ありがとうございました。
また、何か良いアイデアがありましたら教えて下さい。

> 実は、今、ゴムバンドのように伸びる矢印を作成したのですが、
何の為に何をしたいのかを具体的に書かないと何かをする為に貴方が考えた手段が最善の策とは
限らない場合もありますし。

　それによっては、下記のような事も有りかと言う話ができるのですが。
　http://www.hanatyan.sakura.ne.jp/vbhlp/Shape.htm

　どこかで同じような回答したなあー と思って探したら下記と同じ方でしょうか？
     矢印を作成したい。 - マツ 12/05/25-21:47 No.15468