How to use SPLASH Screen load using timer control

Private Sub frmSplash_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim frmMainmenu As New frmMDI
        frmMainmenu.Update()
    End Sub

    Private Sub TimerLast_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerLast.Tick
        TimerLast.Enabled = False
        frmMDI.Show()
        Me.Hide()
    End Sub