[myalsailamy]

1) My Project Properties > Application > View Application Events
2) راح تشوف هذا الكلاس Partial Friend Class MyApplication  ،  قم فقط بادراج  هذا الكود بداخلها :

vb.net Code:

كود :

    Protected Overrides Function OnInitialize(ByVal commandLineArgs As System.Collections.ObjectModel.ReadOnlyCollection(Of String)) As Boolean
     
        Me.MinimumSplashScreenDisplayTime = 5000 'Milliseconds
        Return MyBase.OnInitialize(commandLineArgs)
     
    End Function

هنا تقدر تغير المدة بالفتره الي تبغاها  ،  اي  كل 1000 ملي ثانيه = ثانيه واحده  و هنا  5000 = 5 ثواني 


الشكل النهائي للكود  :

كود :

    Namespace My
     
        ' The following events are available for MyApplication:
        '
        ' Startup: Raised when the application starts, before the startup form is created.
        ' Shutdown: Raised after all application forms are closed.  This event is not raised if the application terminates abnormally.
        ' UnhandledException: Raised if the application encounters an unhandled exception.
        ' StartupNextInstance: Raised when launching a single-instance application and the application is already active.
        ' NetworkAvailabilityChanged: Raised when the network connection is connected or disconnected.
        Partial Friend Class MyApplication
            Protected Overrides Function OnInitialize(ByVal commandLineArgs As System.Collections.ObjectModel.ReadOnlyCollection(Of String)) As Boolean
     
                Me.MinimumSplashScreenDisplayTime = 5000 'Milliseconds
                Return MyBase.OnInitialize(commandLineArgs)
     
            End Function
        End Class
     
     
     
    End Namespace

المصدر : http://www.vbforums.com/showthread.php?5...ast-longer