Añadiendo Métodos

Para definir métodos, se hace como si fueran funciones o subrutinas, y si usan el valor de las propiedades, se deben de usar las "variables privadas" que definidas junto a las propiedades.
 
Ejemplo:
Tenemos una clase "circulo", que tiene la propiedad "radio"

' Gambas class file

Property radio As Float

Private $radio As Float

Private Function radio_Read() As Float

Return $radio

End

Private Sub radio_Write(Value As Float)

$radio = Value

End

Creamos una función, que calcule y devuelve el área del circulo.

Public Function area() As Float

Dim superficie As Float

superficie = Pi * $radio ^ 2

Return superficie

End

Método Constructor:
Hay un método "especial", que nos permite que cuando instanciamos una clase, se puedan definir parametos (uno o varios) y/o ejecutar lineas de código cuando se cree el objeto. Para ello se usa el método "_new()"

Por ejemplo, si queremos que un objeto circulo cuando se cree, le podamos dar un radio, debemos añadir este constructor en la clase :

Public Sub _new(Optional r As Float)

If r <> 0 Then

$radio = r

Print "Se ha creado un circulo, con radio "; $radio

else

Print "Se ha creado un circulo, falta definir radio radio "

 endif

End