VB Code:
  1. Private Sub Form_Load()
  2.  
  3.     Randomize
  4.    
  5. End Sub