Como retornar a largura e altura de um formulário

'Este exemplo mostra como obter a altura e
'largura de um formulário.

Public Class Form1

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

    Dim tam As Size = Me.Size()
    Dim largura As Integer = tam.Width
    Dim altura As Integer = tam.Height

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

  End Sub

End Class