Imports System.Drawing.Drawing2D
Imports System.Threading
Imports System.Windows.Forms
 
Public Class Form1
 
 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        Dim p As New TabPage("Neuer Tab")
        TabControl1.TabPages.Add(p)
        FlashWindow(Me.Handle, FLASHW_ALL, 50, 1000)
 
 
 
 
    End Sub
 
    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button6.Click
        If TabControl1.TabPages.Count = 1 Then
            Dim result As DialogResult = MessageBox.Show( _
          "Dies ist der LETZTE Tab er kann NICHT Geschlossen werden! Um das" & _
          "Programm zu Beenden Klicken sie auf 'X'!", "Letzten Tab Schließen" & _
          "nicht möglich!", MessageBoxButtons.OK, _
             MessageBoxIcon.Error)
 
 
        Else
 
 
 
 
 
            TabControl1.TabPages.RemoveAt(TabControl1.SelectedIndex)
 
 
        End If
 
 
 
    End Sub
 
    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button7.Click
 
        Dim ibrowser As New WebBrowser
        TabControl1.SelectedTab.Controls.Add(ibrowser)
        ibrowser.Dock = DockStyle.Fill
        'hier muss es hin aber was???? 
 
 
 
    End Sub
 
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button5.Click
        Dim ibrowser As New WebBrowser
        Dim t As New TabPage("Neuer Tab")
        TabControl1.TabPages.Add(t)
 
 
 
 
 
    End Sub