Задли нам работу в институте. Пока делал возникла мысль выкладывать здесь задания и код. Может кому поможет...
Задание:
Создать программу с двумя формами. Обе формы отображать сразу.
Когда пользователь двигает первую форму влево на экране, вторая форма должна уменьшаться, когда двигает первую форму вправо, вторая форма должна увеличиваться. В заголовок первой формы выводить размеры второй формы.
Код:
Public Class Form1
Dim prev_loc As Long
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Form2.Show()
Me.Location = New Point(0, 0)
Form2.Location = New Point(0, 0)
prev_loc = 0
End Sub

Private Sub Form1_Move(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Move
Form2.Text = "Form screen position = " + Me.Location.ToString()
Me.Text = "Form size = " + Form2.Size.ToString()
If Location.X > prev_loc Then
Form2.Width = Form2.Width + 1
Form2.Height = Form2.Height + 1
ElseIf Location.X < prev_loc Then
Form2.Width = Form2.Width - 1
Form2.Height = Form2.Height - 1
End If
prev_loc = Location.X
End Sub
End Class