Public Class Msg Inherits BaseMsg Public Sub New(ByVal senderName As String, ByVal message As String) MyBase.New(senderName, message) End Sub Public Sub New(ByVal id1 As Integer, ByVal senderName As String, ByVal message As String, ByVal sendtime1 As DateTime, ByVal ifread1 As Boolean) MyBase.New(id1, senderName, message, sendtime1) '´ËÌõÏûÏ¢ÊÇ·ñÒѾ¶Á¹ý ifread = ifread1 End Sub End Class