Private Sub Form_Load()
With Form1
 .Top = (Screen.Height - .Height) / 2
 .Left = (Screen.Width - .Width) / 2
 End With
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim RazlikaDuzina As Integer
Dim RazlikaSirina As Integer

RazlikaDuzina = (Form1.Width - Form2.Width) / 2
RazlikaSirina = (Form1.Height - Form2.Height) / 2
Form2.Move Form1.Left + RazlikaDuzina, Form1.Top + RazlikaSirina

Form2.Refresh
End Sub