การตรวจสอบตัวเลขในระบบว่าถูกหรือไหม

การตรวจสอบตัวเลขในระบบว่าถูกหรือไหม

Algorithm"

Code"

Public Class Form1

    Const youpass As Double = 1234

    Private Sub btt_chack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btt_chack.Click

        Dim pass As Double

        pass = txt_input.Text

        If pass = youpass Then

            MsgBox("Welcome")

            Me.Close()

        Else

            MsgBox("Pass's not")

        End If

    End Sub

End Class