HIDE and CLOSE

PublicClass Form1

PrivateWithEvents timer1 As Timer

PrivateSub Form1_FormClosing(ByVal sender AsObject, ByVal e As System.Windows.Forms.FormClosingEventArgs) HandlesMe.FormClosing

        e.Cancel = True

Me.Hide()

        Timer1.Start()

EndSub


PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load

        timer1.Interval = 3000

EndSub

PrivateSub Timer1_Tick(ByVal sender AsObject, ByVal e As System.EventArgs)

        timer1.Stop()

Me.Show()

EndSub

EndClass

 				e.Cancel = True
Me.Hide()