Type testing
Private:
nome As String
Public:
number As Integer
Declare Sub setNome( ByRef newnome As String )
End Type
Sub testing.setnome( ByRef newnome As String )
this.nome = newnome
End Sub
Dim As testing myVariable
''我们可以随时访问这些成员
'' they'重新公开
myVariable.number = 69 ''
myVariable.setNome( "FreeBASIC" )