Randomize Three Intro Art Splash Screen's Load

Private Sub Form_Load()

'main is the form that shows up after th
' e intro art, could be form1, main or wha
' tever you call it.
'main.visible=false , that hides the ori
' ginal form
Main.Visible = False
'makes the following coding randomized
Randomize
'lets it know there will be three option
' s


Select Case Int((Rnd * 3) + 1)
'if case 1 is selected then the intro1 f
' orm loads
Case 1
intro1.Visible = True
'if case 2 is selected then the intro2 f
' orm loads
Case 2
intro2.Visible = True
'if case 3 is selected then the intro3 f
' orm loads
Case 3
intro3.Visible = True
'ends it
End Select

'*******END CODING*********
'inside intro1,2,3, you should have eith
' er a timer and after an alloted time it
' makes main.visible=true, and/or on Mouse
' Click of the picture itself. so heres an
' d example
'Intro1
'if someone clicks on the intro picture
' on intro1
'Private Sub Picture_click()
'hides the intro
'intro1.visible=false
'shows main iface
'main.visible=true
'End Sub