Private Sub Form1_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
        Me.Bounds = New System.Drawing.Rectangle(10, 10, 400, 400) '// Position 
        ' + Size
    End Sub
    Private Sub Form1_LocationChanged(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles MyBase.LocationChanged
        Me.Bounds = New System.Drawing.Rectangle(10, 10, 400, 400)
    End Sub