1
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
ProgressBar1.Value = 0
ProgressBar1.Maximum = 100
Timer1.Enabled = True
Timer1.Interval = 20
If CONTADOR < 100 Then
ProgressBar1.Value = CONTADOR
CONTADOR = CONTADOR + 1
Else
Form2.StartPosition = FormStartPosition.CenterScreen
Form2.Visible = True
Me.Visible = False
Timer1.Enabled = False
MsgBox("Bienvenidos al Form2")
End If
If TextBox1.text ="TrackerX" and textbox2.text ="123456" Then
Form2.show()
Me.close()
MsgBox("Logueado Correctamente!", msgboxstyle.information, "Informacion")
Else
MsgBox("Password / Usuario incorrecto/s", msgboxstyle.critical, "ERROR")
End if
Form1.Show()
Me.close
Me.close()
TextBox1.Text = Int(Rnd() * 4)
Select Case TextBox1.Text
Case 1
TextBox1.Text = "Texto 1"
Case 2
TextBox1.Text = "Texto 2"
Case 3
TextBox1.Text = "Texto 3"
Case 4
TextBox1.Text = "Texto 4"
End Select
Me.Close()