Sistema captcha

Bom pessoal estou sem tempo então vamos lá:

Na menu na parte de registração crie:

Código:

textbox
label
label

na primeira label deixe com qualquer name,e no caption vc coloca:

Código:

Captcha:

na segunda label vc poem em name:

Código:

lblCaptcha

Na lblCaptcha poem em caption:

Código:

casodhklsadnlsamd.,msamd.,sadoksajdklsandkjasndjksanjkdansjkdnjkas

e em visivel tu poem false

No texbox vc poem:

Código:

txtCaptcha

dps procure por :

Código:

Case 2
            If Not picRegister.Visible Then

e abaixo de :

Código:

picMain.Visible = False

coloque:

Código:

lblCaptcha.Caption = Int(999999 * Rnd()) + 100000
lblCaptcha.Visible = True

dps procure por:

Código:

Private Sub txtRAccept_Click()

abaixo de :

Código:

Dim Password As String

coloque:

Código:

Dim captcha As String
    Dim Senhas As String

dps procure por:

Código:

Password = Trim$(txtRPass.text)

e abaixo coloque:

Código:

captcha = Trim$(txtcaptcha.text)
    Senhas = lblCaptcha.Caption

acima de :

Código:

If Password <> PasswordAgain Then

coloque:

Código:

  If isLoginLegal(Name, Password) Then
        If captcha <> Senhas Then
        Call MsgBox("Captcha Incorreta.")
        Exit Sub
        End If

Creds: guifs

Fim