Imports Bytescout.BarCode

Module Module1

    Sub Main()

        ' Create and activate barcode generator instance
        Using barcode As New Barcode("demo", "demo")

            ' Set barcode type
            barcode.Symbology = SymbologyType.QRCode

            ' Inputs
            Dim inpEmail = New QrCodeSmsTemplate With {
            .Number = "393-235-2333",
            .Message = "Hello There!"
            }

            ' Set barcode value
            barcode.Value = inpEmail.ToString()

            ' Save generated barcode
            barcode.SaveImage("result.png")

            ' Open generated barcode image with associated application
            Process.Start("result.png")

        End Using

    End Sub

End Module

Public Class QrCodeSmsTemplate

#Region "Constructors"

    Public Sub New()
    End Sub

    Public Sub New(ByVal Number As String, ByVal Message As String)
        Me.Number = Number
        Me.Message = Message
    End Sub

#End Region


#Region "Properties"

    Public Property Number As String
    Public Property Message As String

#End Region

#Region "Overloaded Methods"

    Public Overrides Function ToString() As String

        If String.IsNullOrEmpty(Number) AndAlso String.IsNullOrEmpty(Message) Then Return MyBase.ToString()

        Return $"smsto:{Number}:{Message}"

    End Function

#End Region


End Class