Private Sub Button7_Click_1(sender As Object, e As EventArgs) Handles Button7.Click
    Dim frmNewForm As New NativeMethods
    Dim NewTab As TabPage = frmNewForm.TabPage1
    NewTab.Text = TabControl1.TabCount + 1.ToString
    TabControl1.TabPages.Add(NewTab)
End Sub