Automatisk framvisning av forms

Her er en simpel metode til 3 forms (Form1, Form2 og Form3):

I Form1 øverst: Public lTime As Long
I Form1 indsættes en timer (Timer1). Timeren sættes til enabled, og dens
interval sættes til 500 (½ sek.)
i Form1 indsættes også:
Private Sub Timer1_Timer()

lTime = lTime + 1
If lTime = 10 Then
    Form1.Hide
    Form2.Show
End If
If lTime = 20 Then
    Form2.Hide
    Form3.Show
End If
If lTime = 30 Then
    Form3.Hide
    Form1.Show
    lTime = 0
End If

/tjacob

-Der mangler lige en linie med: End Sub

Den fungerer perfekt. Takk fra en fornøyd nordmann:)