Cliente~~Side

frmNewAccount

Duplo clique na label picConnect e abaixo de:

Código:

If Trim(txtPassword.Text) <> Trim(txtPassword2.Text) Then
            MsgBox "As senhas digitadas não estão iguais!"
            Exit Sub
        End If

Adicione:

Código:

If Trim(txtPassword.Text) = txtName.Text Then
            MsgBox "Sua senha não pode ser igual ao login!", vbCritical, GAME_NAME
            Exit Sub
        End If

Pronto, testado e aprovado por mim.

Créditos: RenanR~~'