VB .NET - Perguntas e Respostas

Olá pessoal depois de um tempo sem postar nada hoje fiz um simples programa em vb .net e espero que vocês gostem.

Código fonte logo abaixo:

Imports System.Threading

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim i, digitos, valor As Integer

        Dim resposta(10) As String 'array de 10 posições

        Dim x As String

        resposta(1) = ("DESCULPE NÃO POSSO RESPONDER.")

        resposta(2) = ("PORQUE VOCÊ NÃO ME PERGUNTA OUTRA COISA?")

        resposta(3) = ("PARECE QUE NÃO ESTAMOS NOS ENTENDENDO MUITO BEM.")

        resposta(4) = ("TALVEZ VOCÊ NÃO TENHA ENTENDIDO, MAS EU JA RESPONDI.")

        resposta(5) = ("PORQUE VOCÊ NÃO ME ESQUECE.")

        resposta(6) = ("TIRE SUAS MÃOS DO MEU TECLADO.")

        resposta(7) = ("VOCÊ SÓ SABE FAZER PERGUNTAS IDIOTAS.")

        resposta(8) = ("LEVOU TANTO TEMPO PARA PERGUNTAR ISTO?")

        resposta(9) = ("PARECE QUE VOCÊ É BOBO MESMO.")

        resposta(10) = ("POR FAVOR REFORMULE SUA PERGUNTA E TENTE NOVAMENTE.")

        If txtTexto.Text.Length = 0 Then

            MsgBox("Faça uma pergunta!", MsgBoxStyle.Information)

        Else

            If txtTexto.Text <> "" Then

                digitos = Len(txtTexto.Text)

                Label1.Refresh()

                For i = 1 To digitos

                    Label1.Text = (txtTexto.Text)

                    Label1.Refresh()

                    System.Threading.Thread.Sleep(30)

                Next

            End If

            Randomize()

            valor = Rnd(10)

            valor = valor + 1

            x = resposta(valor)

            digitos = Len(x)

            For i = 1 To digitos

                Label2.Text = x

                Label2.Refresh()

                System.Threading.Thread.Sleep(30)

            Next

        End If

        txtTexto.Clear()

        txtTexto.Focus()

    End Sub

End Class

Espero ter ajudado e até a próxima...