codice:
Namespace N1
Class C1
Dim variabile as string
Sub Ciao
'procedura ke prende il valore e ..
variabile = 'valore'
End sub
End Class
Class C2
Dim variabileC1 as new C1
variabileC1.Ciao()
Dim ValoreVariabile as String = variabileC1.variabile
End Class
End Namespace
Oppure
codice:
Namespace N1
Class C1
Dim variabile as string
Sub New()
'procedura ke prende il valore e ..
variabile = 'valore'
End sub
End Class
Class C2
Dim variabileC1 as new C1
Dim ValoreVariabile as String = variabileC1.variabile
End Class
End Namespace