Private Sub tmrClock_Timer()
   'wordt doorlopen om de <interval> milliseconden
   ' i moet general gedeclareert zijn, buiten sub,
   ' anders wordt i = 0 geinitialiseerd bij elk keer
   ' dit tmr event loopt
   
   i = i + 1
   If i = 5 Then
        Form1.Show      ' = load + show
        Me.Hide         '"Me" = ikzelf, deze form
                        ' hide : verbergen, blijft geladen
        Unload Me       ' stop, unload deze form
   End If
   
End Sub