一緒に移動するフォーム (ID:78852)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Form1の移動に合わせてForm2が移動する例を作ってみました。 Form1にはTimerを貼り付けてください。 '=== Form1 === Option Explicit Private mX As Long Private mY As Long Event MoveWindow(W As Long, H As Long, X As Long, Y As Long) Private Sub Form_Load() Timer1.Interval = 200 Timer1.Enabled = True Form2.Show End Sub Private Sub Timer1_Timer() If (mX <> Me.Left Or mY <> Me.Top) Then mX = Me.Left mY = Me.Top RaiseEvent MoveWindow(Me.Width, Me.Height, mX, mY) End If End Sub '=== Form2 === Option Explicit Private WithEvents PForm As Form1 Private Sub Form_Load() Set PForm = Form1 End Sub Private Sub PForm_MoveWindow(W As Long, H As Long, X As Long, Y As Long) Me.Move X + W, Y End Sub いかがでしょう？