'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

Informe o 1º valor: 5
Informe o 2º valor: 1
Informe o 3º valor: 20
Informe o 4º valor: 6
Informe o 5º valor: 3
Informe o 6º valor: 4
Informe o 7º valor: 7
Informe o 8º valor: 12
Informe o 9º valor: 9
Informe o 10º valor: 8

O maior valor lido foi: 20
O menor valor lido foi: 1