Estación de mensajes

Elige una interfaz entre todas las desarrolladas y añade una sencilla etiqueta denominada lEstacion.

Cada vez que un elemento reciba el foco del programa (Evento GetFocus), la etiqueta mutará a texto azul e informará al usuario de lo que debe hacer o introducir en ese control.

Cada vez que se produzca un error, la etiqueta mutará a texto rojo avisando al usuario de la situación que se ha producido.

ejemplo:

/*estación de mensajes*/
    Private Sub txtCuenta_GotFocus(sender As Object, e As EventArgs) Handles txtCuenta.GotFocus
        txtExplicativo.Text = "Número de cuenta. Contiene 10 números."
    End Sub

/*mensaje final*/
        If Len(txtCuenta.Text) = 10 And contador = 5 Then
            txtExplicativo.Text = "Cuenta introducida correctamente."
            txtExplicativo.ForeColor = Color.Green
        End If

Puedes descargarte el código aquí