Public Class Form1
    Dim change As Integer
    Dim number As Integer
    Sub delay()
        Dim Start As Integer = Environment.TickCount()
        Dim TimeLast As Integer = 2000000
        Do
            If Environment.TickCount() - Start > TimeLast Then Exit Do
            Application.DoEvents()
        Loop
    End Sub
    Sub delay1()
        Dim Start As Integer = Environment.TickCount()
        Dim TimeLast As Integer = 20000
        Do
            If Environment.TickCount() - Start > TimeLast Then Exit Do
            Label1.Text = Rnd() * 10000000
            Application.DoEvents()

        Loop
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        Dim OpenFileDialog As New OpenFileDialog
        OpenFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
        OpenFileDialog.Filter = "zip (*.zip)|*.zip"
        If (OpenFileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then
            Dim FileName As String = OpenFileDialog.FileName
            TextBox1.Text = FileName
        End If
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        delay1()
        If change = 1 Then


            Label1.Text = 7896543
            MsgBox("您的密碼是:7896543")
        ElseIf change = 2 Then
            Label1.Text = 7788996
            MsgBox("您的密碼是7788996")

        End If


    End Sub

    Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged
        change = 1
    End Sub

    Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged
        change = 2
    End Sub

    Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click

    End Sub
End Class