carolina_170

javier_007 respondió: Private Sub Command1_Click() Dim o, f As Integer On Error Resume Next ERRO1.Caption = "" ERRO1.Visible = False ERRO1.ForeColor = vbRed For f = 0 To 26 For o = f + 1 To 27 If Data(o).Text = Data(f).Text Then Data(o).Text = "" Data(o).SetFocus...