Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
          Me.Text = " 200 X 300 " 'розмір форми в заголовок
          Me.Height = 300 'початкові розміри при завантаженні форми
          Me.Width = 200
      End Sub
      Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) _
Handles MyBase.MouseMove
          ' При переміщенні курсору по формі взнаємо його координати плюс початкові значення ширини і висоти
          ' і виводимо розмір форми в заголовок
          Me.Text = e.X + 200 & " X " & e.Y + 300
          Me.Height = 300 + e.Y ' зміна ширини форми при переміщенні курсору
          Me.Width = 200 + e.X
      End Sub