Jeg vil lave en splash screen

Vælg Project, add form og vælg Splash screen.
Vis den som det første i dit program f.eks. i form_load.
  frmSplash.Show
  DoEvents
  ...
  Unload frmSplash

hvordan med en timer så den lukker efter 5 sekunder

Her er en måde at gøre det på. Jeg har valgt at bruge Form_Activate, virkede ikke under Form_load

Private Sub Form_Activate()
Dim sek As Integer
sek = 5
Label1.Caption = sek 'Blot for at se den tæller ned
sek1:
Dim PTime, start
    PTime = 1
    start = Timer
    Do While Timer < start + PTime
   
    DoEvents
    Loop
sek = sek - 1
Label1.Caption = sek 'Blot for at se den tæller ned
    If sek <= 0 Then
sek = 0
Else
  GoSub sek1
    End If
    Unload Me  'lukker plash screen
    Form1.Show
End Sub