Programa giriş hatası (visaul basic)

Merhaba ilk öncelikle konuya bakan arkadaşlara şimdiden teşekkür ediyorum.Yatığım basit bir program var buna giriş yapmak istiyorum sayi üretilecek ,kullanıcı adı,şifre dogru ise 2.forma gecicek degilse msgbox("hatalı giriş")yada labelde falan yazar.Ben yaptıgım forumun loadında random sayi üretiyor kullanıcı adını tanımla şifreyide ben yaptım fakat dogru olsada 2.forma gidiyor yalnış olsada bunun için acıyorum konuyuda

Public Class Form1
    Dim süret, skod As Integer
    Dim kullancıadı As String = "yönetici"
    Dim sifre As Integer = "123456"

Button1

 süret = Label1.Text
        skod = TextBox1.Text
        If süret = skod And kullancıadı = "yönetici" And sifre = "123456" Then
            Me.Hide()
            Form2.Show()
        Else
            MsgBox("hatalı giriş")

        End If

Form1_Load

Randomize()

    Label1.Text = Int(Rnd() * 10000)

Edit :

Button1_Click

 süret = Label1.Text

        skod = TextBox1.Text

        kullancıadı = TextBox2.Text
        sifre = TextBox3.Text

        If süret = skod And kullancıadı = "yönetici" And sifre = "123456" Then

            Me.Hide()
            Form2.Show()

        Else
            MsgBox("hatalı giriş")

        End If

C#'ta böyle bir şey yapmıştım eğer istersen pm'den iletişime geç.

Msn den yardim ettim arkadas sorunu cozdu