Redimensionando um formulário em tempo de execução

'Este exemplo mostra como redimensionar um formulário
'em tempo de execução.

Public Class Form1

  Private Sub Button1_Click(ByVal sender As _
    System.Object, ByVal e As System.EventArgs) _
    Handles Button1.Click

    Dim largura As Integer = 100
    Dim altura As Integer = 50

    'Redimensiona o formulário
    Me.Width = largura
    Me.Height = altura

  End Sub

End Class