Private imgSplash As System.Drawing.Image = _
     System.Drawing.Image.FromStream( _
          GetResource("Splash Screen.png"))

Private Shared m_Assembly As System.Reflection.Assembly =_
     System.Reflection.Assembly.GetExecutingAssembly()
Private Shared m_AssemblyPath As String = _
     m_Assembly.GetName().Name().Replace(" ", "_")

Public Shared Function GetResource(ByVal FileName As String) _
       As System.IO.Stream
    Return m_Assembly.GetManifestResourceStream(m_AssemblyPath _
       & "." & FileName)
End Function

Protected Overrides Sub OnPaintBackground(ByVal pevent As _
          System.Windows.Forms.PaintEventArgs)
    Dim gfx As dra.Graphics = pevent.Graphics
    gfx.DrawImage(imgSplash, New dra.Rectangle(0, 0, _
        Me.Width, Me.Height))
End Sub

Private Sub SplashScreen_Load(ByVal sender As System.Object, _
               ByVal e As System.EventArgs) Handles MyBase.Load
    T1.Enabled = True
    T1.Start()
End Sub

Private Sub T1_Tick(ByVal sender As System.Object, _
         ByVal e As System.EventArgs) Handles T1.Tick
    T1.Stop()
    T1.Dispose()
    Me.Close()
End Sub

Protected Overrides Sub OnClick(ByVal e As System.EventArgs)
    T1.Stop()
    T1.Dispose()
    Me.Close()
End Sub