intro

    Private Sub frmmain_Load(sender As Object, e As EventArgs) Handles Me.Load
        If Debugger.IsAttached Then
            AbsoluteRef = Path.GetFullPath(Application.StartupPath & "\..\..\Resources\")
        Else
            AbsoluteRef = Application.StartupPath & "\Resources\"
        End If
        aboutusfrm.TopLevel = False
        aboutusfrm.AutoScroll = True
        introfrm.TopLevel = False
        introfrm.AutoScroll = True
        wordfrm.TopLevel = False
        wordfrm.AutoScroll = True
        excelfrm.TopLevel = False
        excelfrm.AutoScroll = True

        powerpointfrm.TopLevel = False
        powerpointfrm.AutoScroll = True
        emailfrm.TopLevel = False
        emailfrm.AutoScroll = True
        internetfrm.TopLevel = False
        internetfrm.AutoScroll = True
    End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnintro.Click
        AxWindowsMediaPlayer1.Ctlcontrols.stop()
        Me.Panel2.Controls.Add(introfrm)
        Me.Panel2.Controls.Remove(wordfrm)
        Me.Panel2.Controls.Remove(excelfrm)
        Me.Panel2.Controls.Remove(emailfrm)
        Me.Panel2.Controls.Remove(internetfrm)
        Me.Panel2.Controls.Remove(powerpointfrm)
        Me.Panel2.Controls.Remove(AxWindowsMediaPlayer1)
        TextBox1.Text = ""
        PictureBox3.Image = introimg
        introfrm.Show()
    End Sub