VB Code:
  1. Private Sub cmdGenerate_Click()

  2. 'STORE VARIABLES'

  3. Dim sPossible(5) As String, iTemp As Integer

  4. Static iLast As Integer

  5. 'STRINGS TO BE RANDOMIZED'

  6. sPossible(0) = "Hello"

  7. sPossible(1) = "Hello vbForums"

  8. sPossible(2) = "Good day"

  9. sPossible(3) = "Lets go to the pub"

  10. sPossible(4) = "Youre getting married?!"

  11. sPossible(5) = "Im getting a new car today!"

  12. 'RANDOMIZE IT'

  13. Randomize Timer

  14. Do

  15. iTemp = Rnd() * 5

  16. Loop Until iLast <> iTemp

  17. iLast = iTemp

  18. txtMain.Text = sPossible(iTemp)

  19. 'FINISH THE JOB'

  20. txtMain.SetFocus

  21. txtMain.Refresh

  22. End Sub