1. <%  
2. Class myClassName  
3. Private int_ID '分類id  
4. '類初始化  
5. Private Sub Class_Initialize()  
6. m_strError = ""  
7. End Sub  
8.  
9. '類釋放  
10. Private Sub Class_Terminate()  
11. m_strError = ""  
12. End Sub  
13.  
14. '-----讀寫各個屬性---------------------------  
15. Public Property Get ID  
16. ID = int_ID  
17. End Property  
18.  
19. Public Property Let ID(intId)  
20. int_ID = intId  
21. End Property 
22.  
23. public Function method()  
24. End Function  
25. End Class 
26. %>