Lekim, funciona 100%... gracias!! 

Amigos como puedo cambiar el color del fondo por 5 segundos?

cada vez que presiono un botton llamado Error, este cambiara el color de fondo del form por 5 segundos. y que despues vuelva al color original

Me.BackColor = System.Drawing.Color.OrangeRed
 

Oye....! Gracias me ha servido bastante......

algo asi fue lo que hice, claro esta es una prueba, pero lo hace.

Public Class Form1
 
    Dim vt(10) As String
    Dim cont As Integer = 0
 
    Private Sub cargar(ByRef vt() As String)
 
        vt(0) = "algo"
        vt(1) = "otro"
        vt(2) = "otro algo"
        vt(3) = "algo mas"
        vt(4) = "mucho mas"
        vt(5) = "otro mucho mas"
        vt(6) = "muchas cosas mas"
        vt(7) = "infinitas cosas"
        vt(8) = "infinitas cosas mas"
        vt(9) = "Fin de cosas"
 
 
    End Sub
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        cargar(vt)
    End Sub
 
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Button1.Text = ""
        Button2.Text = ""
 
        If cont = 9 Then
            'generar Salir
        Else
            cont = cont + 2
        End If
 
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Button1.Text = vt(cont)
    End Sub
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Button2.Text = vt(cont + 1)
    End Sub
End Class
 

jajaja 

fijate lo que quiero hacer, tengo una serie de respuestas; ejemplo:

vector(0) = "amarrillo"
vector(1) = "rojo"
vector(3) = "naranja"
vector(4) = "negro"
 

entonces en un boton(botton_siguiente).
por otro lado tengo 2 botones mas(botton_resp1 y botton_resp2), tengo estos botones para cuando le den clic sobre cada botton(botton_resp1 y botton_resp2) salga:

botton_resp1 ="amarrillo"
botton_resp2 = "rojo"
 

y cuando presione el boton_siguinte salga=

botton_resp1 ="naranja"
botton_resp2 = "negro"
 

como puedo hacer eso?....

me tiene loco por que no he podido....

si quiero mostrar un dato al dar clic en un botton, como lo haria?

el funcionamiento es el siguiente, cada vez que le de clic a el mismo boton el cambie la informacion que se muestra alli dentro del boton, crei que si pasaba por parametro el dato a la funcion me funcionaria, pero no funciono, hice esto ps:

Private Sub button_resp1_Click(sender As Object, e As EventArgs, byref res as string) Handles button_resp1.Click
button_resp1.tex = res
end sub
 

pero me arroja un error:

Error	1	El método 'Private Sub button_resp1_Click(sender As Object, e As System.EventArgs, ByRef res As String)' no puede controlar el evento 'Public Event Click(sender As Object, e As System.EventArgs)' porque no tienen una firma compatible.
 
 

que me recomiendadn?

gracias!

Lekim muy buenas tus ayudas gracias......

para acotar!; segun el profesor el codigo si esta bueno, y para que funcione al 100% tenia que agregarle un espacio al final de la oración, es decir, tenia esto:

 Dim oracion As String = "Hola Mundo Como estas?" 

agregandole un espacio al final:

 Dim oracion As String = "Hola Mundo Como estas?  " 

si funciona bien....... jajajaja quede lol....

gracias!

cambiar_palabra(palabra), es una funcion que cambia letras de mayuscula a minuscula y viceversa, pero eso no viene al caso.... esa funcion funciona bien.

el problema es el siguiente:

tengo la siguiente oracion: "Hola Mundo como estas?"
y el problema me pide que saque las palabras usando cadena de caracteres,
es decir, me imprima algo haci:
"Palabra1 = Hola"
"Palabra2 = Mundo"
"Palabra3 = como"
"Palabra4 = estas?"

para este caso, tengo que usar las funciones(InStr() y Mid()),  y no puedo usar nada de vectores, matrices ya que se vuelve simple el ejercicio,  me piden que usen las funciones que les indique atras,....

gtacias por su atencion!

Saludos!

tengo el siguiente codigo:

        Dim oracion As String = "Hola Mundo Como estas?"  'Trim(TextBox_oracion.Text())
        Dim i As Integer = 1
        Dim posicion As Integer
        Dim palabra As String
 
        Do
            posicion = InStr(i, oracion, " ")
            If posicion > 0 Then
                palabra = Mid(oracion, i, posicion - i)
                ListBox_separar.Items.Add(cambiar_palabra(palabra))
                posicion = posicion + 1
                i = posicion
            End If
        Loop Until posicion = 0
 

y quiero que me separe las palabras y me las imprima una por una, pero me imprime esto:

Hola
Mundo 
Como
 

no me esta imprimiendo la palabra estas, donde tendre mi error?....

gracias!

Gracias! me ayudo bastante...... practicamente hicistes todo, solo falto mostrar

        Dim oracion() As String
        Dim contar_vocal As Integer = 0
 
        oracion = Split(TextBox1.Text)
        For i = 0 To oracion.Count() - 1
            If oracion(i) <> " " Then
                For j = 0 To oracion(i).Length - 1
                    If oracion(i)(j) = "a" Or oracion(i)(j) = "A" Or
                       oracion(i)(j) = "e" Or oracion(i)(j) = "E" Or
                       oracion(i)(j) = "i" Or oracion(i)(j) = "I" Or
                       oracion(i)(j) = "o" Or oracion(i)(j) = "O" Or
                       oracion(i)(j) = "u" Or oracion(i)(j) = "U" Then
                        contar_vocal = contar_vocal + 1
                    End If
                Next
                mostrar.Items.Add(oracion(i) & " Nº Vocales: " & contar_vocal)
                contar_vocal = 0
            End If
        Next