[هاني جمال]

Public Class mylist
Public MyId As Integer
Public MyStr As String

Public Sub New(ByVal s As String, ByVal i As Integer)
MyStr = s
MyId = i
End Sub
Public Overrides Function ToString() As String
ToString = MyStr
End Function
End Class


Class mylist2
Public MyId As Integer
Public MyStr1 As String
Public MyStr2 As String


Public Sub New(ByVal s1 As String, ByVal i As Integer, ByVal s2 As String)
MyStr1 = s1
MyStr2 = s2
MyId = i

End Sub

Public Overrides Function ToString() As String
ToString = MyStr1
End Function
End Class