Select case {statement}
Case {statement.attribute}
End Select
Private Sub GenerateRandomly_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GenerateRandomly.Click
Dim Key As Integer
Key = Int(Rnd() * 100)
Select Case Key
Case 0
Saying.Text = ""
Number.Text = "#1"
Case 1
Saying.Text = ""
Number.Text = "#2"
Case 2
Saying.Text = ""
Number.Text = "#3"
