Private Sub TabControl1_DragEnter(ByVal sender As Object, ByVal e As _
   System.Windows.Forms.DragEventArgs) Handles TabControl1.DragEnter
        Dim dat As New DataObject
        dat = e.Data
 
        If dat.ContainsText() = True Then
            If dat.GetText().Substring(0, 7) = "http://" Or dat.GetText( _
              ).Substring(0, 6) = "ftp://" Or dat.GetText().Substring(0, 8) = _
              "https://" Or dat.GetText().Substring(0, 4) = "www." Then
 
 
                AddTab(dat.GetText, TabControl1)
 
            End If
        End If
    End Sub