Splash Screen Time

SplashScreen.vb

Imports System.Collections.ObjectModel
Namespace My
    Partial Friend Class MyApplication
        Protected Overrides Function OnInitialize(commandLineArgs As ReadOnlyCollection(Of String)) As Boolean
            Me.MinimumSplashScreenDisplayTime = 7500
            Return MyBase.OnInitialize(commandLineArgs)
        End Function
    End Class
End Namespace