Try this in your main form:
Public Class MainForm
Private WithEvents tmr As New Timer
Private Sub MainForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
tmr.Interval = 5000
tmr.Enabled = True
Do While tmr.Enabled
Application.DoEvents()
Loop
End Sub
Private Sub tmr_Tick() Handles tmr.Tick
tmr.Enabled = False
End Sub
End Class