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" )