Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
       System.EventArgs) Handles Button03.Click
        Button01.Visible = False
        Button02.Visible = False
        Button03.Visible = False
        Dim frm As New frm_Activated
        frm.MdiParent = Me
        frm.Show()
    End Sub

    Private Sub frm_Slp_Show()
        Dim frm As New frm_Slp
        frm.MdiParent = mdi_frm_Welcome2F
        mdi_frm_Welcome2F.Button01.Visible = False
        mdi_frm_Welcome2F.Button02.Visible = False
        mdi_frm_Welcome2F.Button03.Visible = False
        frm.Show()
    End Sub