Private Sub Command1_Click( )
Dim As Integer
Randomize
num = Int( * 3)
Text1. Text = Textname((num)). Text
End Sub