El siguiente codigo esta bien ??
Dim Lokito As Integer
If (TextBox1.Text = "IPC") And (TextBox2.Text = "123456789") Then
ProgressBar1.Value = 0.0
ProgressBar1.Maximum = 100
For contador = 1 To 100
contador = contador + 1
ProgressBar1.Value = contador
Next
If ProgressBar1.Value = ProgressBar1.Maximum Then
MsgBox("Bienvenido al sistema")
Form2.Show()
End If
Else
ProgressBar1.Value = 0.0
ProgressBar1.Maximum = 100
For contador = 1 To 100
contador = contador + 1
ProgressBar1.Value = contador
Next
MsgBox("Usuario incorrecto vuelve a intentarlo")
TextBox1.Clear()
TextBox2.Clear()
ProgressBar1.Value = 0.0
Selecciona uno de los siguientes: