Private Sub cmdAnswer_Click()
lblAnswer.Visible = True
cmdAnswer.Visible = False
cmdReplay.Visible = True
End Sub
Private Sub cmdReplay_Click()
Form2.Hide
Form1.Show
cmdAnswer.Visible = True
lblAnswer.Visible = False
cmdReplay.Visible = False
Form1.txtQuestion.Text = ""
End Sub
Sub Form_Activate()
Randomize Timer
With List1
.AddItem "Yes!"
.AddItem "No!"
.AddItem "Of Course!"
.AddItem "Nope!"
.AddItem "Never!"
.AddItem "Yup!"
.AddItem "Don't count on it!"
.AddItem "The outlook is good!"
.AddItem "50-50 chance!"
.AddItem "Mabye!"
.AddItem "Only in your dreams!"
.AddItem "One will never know!"
.AddItem "I don't know!"
End With
List1.ListIndex = Rnd * List1.ListCount
lblAnswer.Caption = List1.Text
lblAnswer.ForeColor = vbWhite
lblAnswer.BackColor = vbBlack
lblAnswer.FontSize = "12"
lblAnswer.FontBold = True
Form2.lblQuestion.Caption = Form1.txtQuestion.Text
lblQuestion.FontSize = "11"
lblQuestion.FontBold = True
End Sub
Private Sub Form_Terminate()
Unload Form1
Unload Form2
End Sub