. . ... :
. .
, , , . . :
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
