Public Sub New()
MyBase.New()
Form1 = Me
'This call is required by the Win Form Designer.
InitializeComponent()
'TODO: Add any initialization after the InitializeComponent() call
End Sub
'Form overrides dispose to clean up the component list.
Public Overrides Sub Dispose()
MyBase.Dispose()
components.Dispose()
End Sub
#Region " Windows Form Designer generated code "
........
#End Region
Protected Sub Form1_Click( ByVal sender As Object, ByVal
e As System.EventArgs)
Dim a, b As New Tree()
a.input("peach", 8, 2.1)
b.input("pinapple", 2, 0.5)
a.Show()
b.Show()
End Sub
End Class

这个VB程序﹐Tree内之资料成员──variety, age及height皆为Private成员，而input()及Show()程序是Public成员。Form1_Click()程序中﹐首先诞生对象── a及 b。接下来﹐指令──

把 3项资料分别存入对象 a之资料成员中﹐a 之内容为﹕

同样地﹐指令──
b.input( "pineapple", 2, 0.5 )

也把 3项资料存入对象 b之中﹐则 b之内容为﹕

最后﹐呼叫Show()程序把对象 a和对象 b之内容显示出来﹕

peach, 8, 2.1
pineapple, 2, .5

(编辑:aniston)