Obtendo a largura e altura de um formulário usando as propriedades Width e Height

'Este exemplo mostra como obter a altura e
'largura de um formulário usando as propriedades
'Width e Height.

Public Class Form1

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

    Dim largura As Integer = Me.Width
    Dim altura As Integer = Me.Height

    'Exibe o resultado
    MsgBox("A largura do formulário é: " & largura)
    MsgBox("A altura do formulário é: " & altura)

  End Sub

End Class