二つのフォームを一緒に移動

二つのフォームを並べて表示させ、フォームＡを移動すると、それにともないフォームＢも一緒に移動させたいと考えています。

どのようにすれば良いのでしょうか。
ＶＢ６を使用しています。ご教授お願いします。

No.3 ベストアンサー 回答者： Azzuri 回答日時： 2004/12/16 21:16

フォームAにTimerコントロールを用意して、

Timerイベントに
フォームB.Move Me.Left + Me.Width, Me.Top
とするのはどうですか。
TimerコントロールのIntervalの設定はお好みで。

No.2 回答者： nandarou-1011 回答日時： 2004/12/16 15:47

フォームには移動したときのイベントがありません。

それで、一番妥当なのは#1のようにMouseMoveイベントですが、タイトルバー上では認知しないために、移動後一度タイトルバー以外のフォーム上でマウスを動かす事によってようやく移動します。

VB.NETではForm_Moveイベントが組み込まれているようですけど。

No.1 回答者： tinu2000 回答日時： 2004/12/16 07:26

おはようございます。

時間が無いので、VBAのサンプルを、
これは、重なった３つのフォームを、いつも重なっているようにするコードです。

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
UserForm2.Top = UserForm1.Top
UserForm2.Left = UserForm1.Left
UserForm3.Top = UserForm1.Top
UserForm3.Left = UserForm1.Left
End Sub

VBAですので、VB6とは少しコードが違うかも知れませんが、
そこは、何となく分かると思います。

UserForm1.Top＋50
UserForm1.Left+50
などとすると、フォームがずれたまま移動します。