Visual Basic

Public Property DTOCarrito() As IList(Of DTOCompraCarritoX)
    Get
        If _DTOCarritoList.Count = 0 Then
            If CuponIngresado.Trim.Length = 0 Then
                CuponIngresado = String.Empty
                DTOCuponDetalle = Nothing
            End If
        End If

        Return _DTOCarritoList
    End Get
    Set(ByVal value As IList(Of DTOCompraCarritoX))
        _DTOCarritoList = value
    End Set
End Property

Dim dt As DTOCompraX
Dim dtc As DTOCompraCarritoX
Dim DTOclist As IList(Of DTOCompraCarritoX)
Dim dtp As DTOTipoProducto

dtc = New DTOCompraCarritoX()
dtp = New DTOTipoProducto()
DTOclist = New List(Of DTOCompraCarritoX)

Dim extraTypes(1) As Type
extraTypes(0) = dtc.GetType()
extraTypes(1) = DTOclist.GetType()

dt = New DTOCompraX()

Dim ot As Type
ot = dtc.GetType()

Dim fs As FileStream = New FileStream("c:\miobjeto.xml", FileMode.Create)

Dim xs As XmlSerializer = New XmlSerializer(dt.GetType(), extraTypes)
xs.Serialize(fs, dt)

fs.Close()</pre>

Public Module MathHelpers
  Public Function Add(ByVal param1 As Object, ByVal param2 As Object) As Object
    Return param1 + param2
  End Function
End Module

Public Module MathHelpers
  Public Overloads Function Add(ByVal param1 As Integer, ByVal param2 As Integer) As Integer
    Return param1 + param2
  End Function
  'Continue this for all primitive data types you want to handle
End Module

Private Sub btnStart_Click(sender As System.Object, e As System.EventArgs) Handles btnStart.Click
            lblTextHere.Text = "READY"
            System.Threading.Thread.Sleep(2000)
            lblTextHere.Text = "SET"
            System.Threading.Thread.Sleep(2000)
            lblTextHere.Text = "FIRST PLAYER'S TURN"
            Timer1.Start()
        End Sub