如何用类
在vb6.0中基本用函数和过程来解决问题，现在vb.net完全面向对象了，在vb.net中如何用类来解决问题啊，写类有什么原则啊

[解决办法]
该问题无法回答，随便看看任何面向对象语言的教材都能找到答案。
[解决办法]
如果你“在vb6.0中基本用函数和过程来解决问题”...建议你彻底忘掉VB...从一本最基础的.NET入门书开始看...
[解决办法]
最好去学习什么是对象，把观念转变一下。
[解决办法]
忘了你的VB6吧
[解决办法]
Public Class Customer
Public Sub New()
Debug.WriteLine( "setuped ")

End Sub

'--------New(Byval)---------
Public Sub New(ByVal sname As String)
Name = sname
Debug.WriteLine(Name & "setuped ")
End Sub

Private m_Name As String
Property Name() As String
Get
Return m_Name
End Get
Set(ByVal Value As String)
m_Name = Value
End Set
End Property
Private m_address As String
Property Address() As String
Get
Return m_address
End Get
Set(ByVal Value As String)
m_address = Value
End Set
End Property

Public Function PlaceOrder() As String

End Function

Public Function CheckOrderStatus() As String

End Function

Public Overridable Function CalculateDiscount() As String
Return "base class "
End Function
End Class
-------------------------------
Public Class SubPro : Inherits Customer

Private m_zfjg As String
Property Zfjg() As String
Get
Return Zfjg
End Get
Set(ByVal Value As String)
m_zfjg = Value
End Set
End Property

Private m_bsc As String
Property Bsc() As String
Get
Return m_bsc
End Get
Set(ByVal Value As String)
m_bsc = Value
End Set
End Property

Public Overrides Function CalculateDiscount() As String
Return "sub class "
End Function
Public Function SubProSelf() As String

End Function
Public Sub New()
MyBase.New()
End Sub
End Class