Hi,
In the Activated event of the splash form put
VB Code:
Threading.Thread.Sleep(10000) Me.Close
To make this work properly, assuming your designed forms are named fclsSplash and fclsMain, use a Module and make the Sub main your startup object. In athe Module put
VB Code:
Dim frmSplash as fclsSplash Friend frmMain as fclsmain Public Sub Main() frmSplash = New fclsSplash frmSplash.ShowDialog frmMain = New fclsMain Application.Run(frmmain) End Sub
PS. Welcome to the forum. You have the right attitude if you searched for your question before posting![]()




Reply With Quote