Criação de Classes em Visual Basic

Classe Retângulo

Atributos:
    Comprimento
    Largura
Métodos:
    Área=Comprimento*Largura


Criação da classe retângulo

Public Class Retangulo
        Public Comprimento As Single
        Public Largura As Single
        Public Function Area() As Single
            Return Comprimento * Largura
        End Function
End Class

Basicamente isto é uma revisão das classes que abordei na linguagem Pascal.