Timer baseret dialogbox

form_load:
timer.enabled = true

timer:
interval: 3s
default: enabled=false

timer_timer:
unload me
load (den næste dialogboks) - husk denne_form.show i form_load på denne boks

Hmm:

-form1-
Private Sub Form_Load()
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
    Unload Me
    Load Form2
End Sub

-form2-
Private Sub Form_Load()
    Me.Show
End Sub

timer1 (i form1) skal så have:
interval: 3000
enabled: false

Det lyder som du ønsker en Splash Screen inden dit program kører?

Brug evt. den indbyggede Splash Screen og styr det hele i Sub Main
Læs i hjælp under Splash Screens (søg under Index)
Brug evt. Timer til at bestemme tiden den vises
Her er lidt kodeforslag klippet fra hjælpen:

Private Sub Main()
  ' Show the splash screen. 
  frmSplash.Show
  ' Add your startup procedures here.
  …
  ' Show the main form and unload the splash screen.
  frmMain.Show
  Unload frmSplash
End Sub