示例:
public class form1
‘創建壹個屬於form的子類,名稱為類名。
public class 類名
’定義類成員text
public text as string
end class
‘定義壹個類名類的公***變量。
dim 類名1 as 類名
’定義壹個過程,使用類名類的text成員
public sub 過程
‘實例化類名1
類名1=new 類名
類名1.text=“賦值”
’定義壹個新類類的私用變量,並實例化。
dim 新類1 as new 新類
新類1.name=“壹個字符串”
新類1.age=12
end sub
end class
‘’‘創建壹個與form同級的類,名稱為新類
public class 新類
public sub new()
end sub
public name as string
public age as integer
end class
在模塊中使用:
public class module1
dim a as new form1.類名
end module