Como retornar a área cliente de um formulário

'Este exemplo mostra como obter a largura e altura
'da área cliente de um formulário em tempo de execução. 
'A área cliente não considera as bordas nem a barra
'de títulos do 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.ClientSize
    Dim largura As Integer = tam.Width
    Dim altura As Integer = tam.Height

    'Exibe o resultado
    MsgBox("A largura da área cliente é: " & largura)
    MsgBox("A altura da área cliente é: " & altura)

  End Sub

End Class