vBNet - 8ball

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub cmdExit_Click(sender As Object, e As EventArgs) Handles cmdExit.Click
        Application.Exit()
    End Sub

    Private Sub picBall_Click(sender As Object, e As EventArgs) Handles picBall.Click

    End Sub

    Private Sub cmdAsk_Click(sender As Object, e As EventArgs) Handles cmdAsk.Click
        txtOut.Clear()
        Dim random As Integer = Rnd() * 19
        Dim question As String = InputBox("Please, Tell me what you Desire to Know...",, "( Question goes Here. )")
        Dim a() As String = {"It is Certain", "It is Decidedly so", "Without a Doubt", "Yes Definitely", "You May Rely On it.",
            "As I see it, yes", "Most Likely", "Outlook's Good", "yes", "Signs are Pointing to Yes", "Reply Not Clear,
            try again", "Ask Again Later", "Better Not tell You Now", "Cannot Predict Now", "Concentrate and ask Again",
            "Don't Count on It", "My Reply is No.", "Sources are Leaning Towards No.", "Outlook's not good",
            "Very Doubtful", "Damn man, I guess so"}
        Array.Sort(a)
        txtOut.Text &= a(random)
        txtOut.Show()
    End Sub
End Class