FRMqrCodeSend.vb

Public Class FRMqrCodeSend
    Dim QR_Generator As New MessagingToolkit.QRCode.Codec.QRCodeEncoder
    Dim timeUP As Integer


    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        CloseQRtimer.Enabled = True
        CloseQRtimer.Start()
        FRMbackground.Enabled = False
        FRMbackground.LBcount.Text = 0

        timeUP = 0
        LBtime.Text = timeUP
        QR_Generator.QRCodeScale = 8
        Dim linkAddress As String
        linkAddress = "https://metamask.app.link/send/0xc298812164bd558268f51cc6e3b8b5daaf0b6341@137/transfer?address=0xa8881192A70FF985100426D26d6510340b99eDeE&uint256=" & "5e4"
        PictureBox1.Image = QR_Generator.Encode(linkAddress)

    End Sub
    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
        Try

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
    Private Sub CloseQRtimer_Tick(sender As Object, e As EventArgs) Handles CloseQRtimer.Tick
        Dim WhenTheTimeIsUp As Integer

        WhenTheTimeIsUp = 30

        If timeUP = 0 Or timeUP < WhenTheTimeIsUp Then
            timeUP = timeUP + 1
        Else
            timeUP = 0
            Close()
            FRMbackground.boxTransactionProgress.Visible = True
        End If

        LBtime.Text = timeUP
    End Sub

    Private Sub Form1_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
        FRMbackground.Enabled = True
    End Sub
End Class