ApplicationEvents.vb
Code:
Namespace My
Partial Friend Class MyApplication
Protected Overrides Function OnInitialize( _
ByVal commandLineArgs As _
System.Collections.ObjectModel.ReadOnlyCollection(Of String) _
) As Boolean
'Me.MinimumSplashScreenDisplayTime = 2000
Return MyBase.OnInitialize(commandLineArgs)
End Function
End Class
End Namespace
Splashscreen1.vb
Code:
Public NotInheritable Class SplashScreen1
Private Sub SplashScreen1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
BackColor = Color.White
TransparencyKey = BackColor
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
End Sub
End Class