vb.net utiliza un formulario para simular la pantalla inicial, con la esperanza de que después de que se muestre el formulario, las etiquetas del formulario muestren "Inicializando A", "en orden.

Clase pública Form1

Public str() Como cadena

Bandera pública como entero = 0?// El bit de bandera registra la última cadena mostrada en la matriz Ubicación

Private Sub Form1_Load(remitente como objeto, e como EventArgs) maneja MyBase.Load

Timer1.Interval = 2000

Timer1.Start()

str = {"Inicializando A...", "Inicializando B...", "Inicializando C..., "Inicializando C...", "¡Inicialización completa!, "¡Inicialización completa!"}

End Sub

End Sub

Private Sub Timer1_Tick(remitente como objeto, e como EventArgs) maneja Timer1.Tick

Label1.Text = str (bandera )

flag = flag 1 //garantiza que la próxima ejecución de label1.text = str(flag) muestra contenido diferente

Si flag = 4 ¿Entonces?

Timer1.Stop()

End If

End Sub

End Class

Consulte la captura de pantalla adjunta para ver los resultados de ejecución.