Imports ColinVerhey.TWBP

Public Class MainForm

Private Sub MainForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
TabControl1.TabCloseButtonImage = My.Resources.close_Tab_0
TabControl1.TabCloseButtonImage_Over = My.Resources.close_Tab_1
TabControl1.TabCloseButtonImage_Pressed = My.Resources.close_Tab_2
TabControl1.NewTabButtonImage = My.Resources.newTab
'TabControl1.TabBarBorderColour = New ColinVerhey.TWBP.TWBPColour("#879AAB")
'TabControl1.TabBarTopColour = New ColinVerhey.TWBP.TWBPColour("#93B2D6")
'TabControl1.TabBarBottomColour = New ColinVerhey.TWBP.TWBPColour("#3F5E83")
TabControl1.TabTopColour = New ColinVerhey.TWBP.TWBPColour("#EBF4FB")
TabControl1.TabBottomColour = New ColinVerhey.TWBP.TWBPColour("#EBF4FB")
TabControl1.bgTabTopColour = New ColinVerhey.TWBP.TWBPColour("#CEDEEE")
TabControl1.bgTabBottomColour = New ColinVerhey.TWBP.TWBPColour("#D1E4F8")

TabControl1.TabContainer.AddTab(New MainForm2, True, TabControl1.TabContainer.TabCount)
'TabControl1.TabContainer.AddTab(New MainForm2, True, TabControl1.TabContainer.TabCount)
'TabControl1.TabContainer.SelectTab(0)
'TabControl1.TabContainer.getSelectedTab.RemoveTab()

Dim yo As New rtaGlassEffectsLib.rtaGlassEffect
yo.TopBarSize = 33
yo.ShowEffect(Me)
yo.BottomBarSize = 0
yo.LeftBarSize = 0
'yo.UseHandCursorOnTitle = False
End Sub

Private Sub MainForm2_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
If My.Settings.DeleteBrowsingHistoryOnExit = True Then
My.Settings.History.Clear()
My.Settings.Save()
End If
End Sub

Private
 Sub TabControl1_NewTabButtonPressed(sender As
ColinVerhey.TWBP.NewTabButton, e As System.EventArgs) Handles
TabControl1.NewTabButtonPressed
TabControl1.TabContainer.AddTab(New MainForm2, True, TabControl1.TabContainer.TabCount)
End Sub

Dim adel, rehan As Integer
Dim newp As System.Drawing.Point
Private
 Sub MainForm_mousedown(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
adel = MousePosition.X - Me.Location.X
rehan = MousePosition.Y - Me.Location.Y
End Sub
Private
 Sub MainForm_mousemove(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
If e.Button = Windows.Forms.MouseButtons.Left Then
newp = MousePosition
newp.X = newp.X - adel
newp.Y = newp.Y - rehan
Me.Location = newp
End If
End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Try
Me.Text = TabControl1.TabContainer.getSelectedTab.TabTitle ' عنوان الصفحه المفتوحه
'Dim favicon = TabControl1.TabContainer.getTabFromForm(Me).TabIcon
'Dim iconBitmap As Bitmap = favicon
'Me.Icon = Icon.FromHandle(iconBitmap.GetHicon)
Catch
End Try
End Sub
End Class

<?xml version="1.0" encoding="utf-16"?>
 <ArrayOfString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" />

<?xml version="1.0" encoding="utf-16"?>
 <ArrayOfString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" />