Implements IServicevb

    Public Sub New()
    End Sub

    Public Function GetData(ByVal value As Integer) As String Implements IServicevb.GetData
        Return String.Format("You entered: {0}", value)
    End Function

    Public Function GetDataUsingDataContract(ByVal composite As CompositeType) As CompositeType Implements IServicevb.GetDataUsingDataContract
        If composite.BoolValue Then
            composite.StringValue = (composite.StringValue & "Suffix")
        End If
        Return composite
    End Function
    Public Function getSquare(ByVal i As Integer) As Integer Implements IServicevb.getSquare

        Return i * i
    End Function

    Public Function getRandomInt(ByVal Min As Integer, ByVal Max As Integer) As Integer Implements IServicevb.getRandomInt
        Dim Generator As System.Random = New System.Random()
        Return Generator.Next(Min, Max)

    End Function