Step 3.)

Now we need to add some nag features to this program. If the user is not registered, then we will cause the splash screen to display for 5 seconds.

a) Immediately following the line: "Load fMainForm", place this code:

    If Not bRegistrationIsValid Then
        wait 5 
    End If

b) Finally, add this procedure after the procedure main.

    Public Sub wait(TimeLen As Integer)
        Dim start As Single
        Dim fin As Single
        start = Timer
        fin = start + TimeLen
        While (Timer < fin)
            DoEvents
        Wend
    End Sub

    Back            Next