Web Brower - vB.Net 2k3

WorldWarIII

[ Respected ]
Code:
Public Class frmSP
    Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

    End Sub

    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    Friend WithEvents mnuMain As System.Windows.Forms.MainMenu
    Friend WithEvents mnu1File As System.Windows.Forms.MenuItem
    Friend WithEvents mnu1Obj As System.Windows.Forms.MenuItem
    Friend WithEvents mnu1Filt As System.Windows.Forms.MenuItem
    Friend WithEvents mnu1View As System.Windows.Forms.MenuItem
    Friend WithEvents mnu1Dat As System.Windows.Forms.MenuItem
    Friend WithEvents mnu1Chat As System.Windows.Forms.MenuItem
    Friend WithEvents mnu2Xml As System.Windows.Forms.MenuItem
    Friend WithEvents mnu2Css As System.Windows.Forms.MenuItem
    Friend WithEvents mnu2Html As System.Windows.Forms.MenuItem
    Friend WithEvents mnu2Js As System.Windows.Forms.MenuItem
    Friend WithEvents mnu2Flash As System.Windows.Forms.MenuItem
    Friend WithEvents mnu2Java As System.Windows.Forms.MenuItem
    Friend WithEvents mnu2Php As System.Windows.Forms.MenuItem
    Friend WithEvents btnClose As System.Windows.Forms.Button
    Friend WithEvents mnu2Open As System.Windows.Forms.MenuItem
    Friend WithEvents mnu2Save As System.Windows.Forms.MenuItem
    Friend WithEvents mnu2Saveas As System.Windows.Forms.MenuItem
    Friend WithEvents mnu2Close As System.Windows.Forms.MenuItem
    Friend WithEvents tabControls As System.Windows.Forms.TabControl
    Friend WithEvents btnCnt As System.Windows.Forms.Button
    Friend WithEvents btnGoogle As System.Windows.Forms.Button
    Friend WithEvents grpMain As System.Windows.Forms.GroupBox
    Friend WithEvents brsrCmmd As AxSHDocVw.AxWebBrowser
    Friend WithEvents PageSetupDialog1 As System.Windows.Forms.PageSetupDialog
    Friend WithEvents tab0 As System.Windows.Forms.TabPage
    Friend WithEvents tab1 As System.Windows.Forms.TabPage
    Friend WithEvents lstLogs As System.Windows.Forms.ListBox
    Friend WithEvents tab3 As System.Windows.Forms.TabPage
    Friend WithEvents txtLocation As System.Windows.Forms.TextBox
    Friend WithEvents btnLoc As System.Windows.Forms.Button
    Friend WithEvents btnBack As System.Windows.Forms.Button
    Friend WithEvents btnForward As System.Windows.Forms.Button
    Friend WithEvents btnRefresh As System.Windows.Forms.Button
    Friend WithEvents lbHist As System.Windows.Forms.Label
    Friend WithEvents lblLoc As System.Windows.Forms.Label
    Friend WithEvents btnDelHis As System.Windows.Forms.Button
    Friend WithEvents tab4 As System.Windows.Forms.TabPage
    Friend WithEvents btnSSGame1 As System.Windows.Forms.Button
    Friend WithEvents btnRTSGame2 As System.Windows.Forms.Button
    Friend WithEvents lblsde As System.Windows.Forms.Label
    Friend WithEvents lblRts As System.Windows.Forms.Label
    Friend WithEvents lblSimple As System.Windows.Forms.Label
    Friend WithEvents btnSGame1 As System.Windows.Forms.Button
    Friend WithEvents tab5 As System.Windows.Forms.TabPage
    Friend WithEvents tab6 As System.Windows.Forms.TabPage
    Friend WithEvents tabBr1 As System.Windows.Forms.TabPage
    Friend WithEvents tabBr2 As System.Windows.Forms.TabPage
    Friend WithEvents tabBr3 As System.Windows.Forms.TabPage
    Friend WithEvents tabBr4 As System.Windows.Forms.TabPage
    Friend WithEvents brsrHolder As System.Windows.Forms.TabControl
    Friend WithEvents brsrEmail As AxSHDocVw.AxWebBrowser
    Friend WithEvents lstSrc As System.Windows.Forms.ListBox
    Friend WithEvents tabBr5 As System.Windows.Forms.TabPage
    Friend WithEvents btnHome As System.Windows.Forms.Button
    Friend WithEvents btnPrint As System.Windows.Forms.Button
    Friend WithEvents brsrDrive As AxSHDocVw.AxWebBrowser
    Friend WithEvents btnBack2 As System.Windows.Forms.Button
    Friend WithEvents btnRefresh2 As System.Windows.Forms.Button
    Friend WithEvents btnForward2 As System.Windows.Forms.Button
    Friend WithEvents btnControl As System.Windows.Forms.Button
    Friend WithEvents btnCMD As System.Windows.Forms.Button
    Friend WithEvents brsrChat As AxSHDocVw.AxWebBrowser
    Friend WithEvents btnOpSrc As System.Windows.Forms.Button
    Friend WithEvents btnOpNtpad As System.Windows.Forms.Button
    Friend WithEvents btnFav As System.Windows.Forms.Button
    Friend WithEvents lstDriveChange As System.Windows.Forms.ListBox
    Friend WithEvents chkProx As System.Windows.Forms.CheckBox
    Friend WithEvents btnHideShow As System.Windows.Forms.Button
    Friend WithEvents btnCalc As System.Windows.Forms.Button
    Friend WithEvents btnPrcTsk As System.Windows.Forms.Button
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmSP))
        Me.mnuMain = New System.Windows.Forms.MainMenu
        Me.mnu1File = New System.Windows.Forms.MenuItem
        Me.mnu2Open = New System.Windows.Forms.MenuItem
        Me.mnu2Save = New System.Windows.Forms.MenuItem
        Me.mnu2Saveas = New System.Windows.Forms.MenuItem
        Me.mnu2Close = New System.Windows.Forms.MenuItem
        Me.mnu1Obj = New System.Windows.Forms.MenuItem
        Me.mnu1Filt = New System.Windows.Forms.MenuItem
        Me.mnu1View = New System.Windows.Forms.MenuItem
        Me.mnu1Dat = New System.Windows.Forms.MenuItem
        Me.mnu2Xml = New System.Windows.Forms.MenuItem
        Me.mnu2Css = New System.Windows.Forms.MenuItem
        Me.mnu2Html = New System.Windows.Forms.MenuItem
        Me.mnu2Js = New System.Windows.Forms.MenuItem
        Me.mnu2Flash = New System.Windows.Forms.MenuItem
        Me.mnu2Java = New System.Windows.Forms.MenuItem
        Me.mnu2Php = New System.Windows.Forms.MenuItem
        Me.mnu1Chat = New System.Windows.Forms.MenuItem
        Me.btnClose = New System.Windows.Forms.Button
        Me.tabControls = New System.Windows.Forms.TabControl
        Me.tab3 = New System.Windows.Forms.TabPage
        Me.chkProx = New System.Windows.Forms.CheckBox
        Me.btnFav = New System.Windows.Forms.Button
        Me.btnPrint = New System.Windows.Forms.Button
        Me.btnHome = New System.Windows.Forms.Button
        Me.btnRefresh = New System.Windows.Forms.Button
        Me.btnForward = New System.Windows.Forms.Button
        Me.btnBack = New System.Windows.Forms.Button
        Me.btnLoc = New System.Windows.Forms.Button
        Me.lblLoc = New System.Windows.Forms.Label
        Me.txtLocation = New System.Windows.Forms.TextBox
        Me.tab0 = New System.Windows.Forms.TabPage
        Me.tab1 = New System.Windows.Forms.TabPage
        Me.btnDelHis = New System.Windows.Forms.Button
        Me.lbHist = New System.Windows.Forms.Label
        Me.lstLogs = New System.Windows.Forms.ListBox
        Me.tab4 = New System.Windows.Forms.TabPage
        Me.btnSGame1 = New System.Windows.Forms.Button
        Me.lblSimple = New System.Windows.Forms.Label
        Me.lblRts = New System.Windows.Forms.Label
        Me.lblsde = New System.Windows.Forms.Label
        Me.btnRTSGame2 = New System.Windows.Forms.Button
        Me.btnSSGame1 = New System.Windows.Forms.Button
        Me.tab5 = New System.Windows.Forms.TabPage
        Me.tab6 = New System.Windows.Forms.TabPage
        Me.btnCnt = New System.Windows.Forms.Button
        Me.btnGoogle = New System.Windows.Forms.Button
        Me.grpMain = New System.Windows.Forms.GroupBox
        Me.brsrHolder = New System.Windows.Forms.TabControl
        Me.tabBr1 = New System.Windows.Forms.TabPage
        Me.brsrCmmd = New AxSHDocVw.AxWebBrowser
        Me.tabBr3 = New System.Windows.Forms.TabPage
        Me.brsrEmail = New AxSHDocVw.AxWebBrowser
        Me.tabBr2 = New System.Windows.Forms.TabPage
        Me.btnOpNtpad = New System.Windows.Forms.Button
        Me.btnOpSrc = New System.Windows.Forms.Button
        Me.lstSrc = New System.Windows.Forms.ListBox
        Me.tabBr4 = New System.Windows.Forms.TabPage
        Me.btnCalc = New System.Windows.Forms.Button
        Me.lstDriveChange = New System.Windows.Forms.ListBox
        Me.btnCMD = New System.Windows.Forms.Button
        Me.btnControl = New System.Windows.Forms.Button
        Me.btnForward2 = New System.Windows.Forms.Button
        Me.btnRefresh2 = New System.Windows.Forms.Button
        Me.btnBack2 = New System.Windows.Forms.Button
        Me.brsrDrive = New AxSHDocVw.AxWebBrowser
        Me.tabBr5 = New System.Windows.Forms.TabPage
        Me.brsrChat = New AxSHDocVw.AxWebBrowser
        Me.PageSetupDialog1 = New System.Windows.Forms.PageSetupDialog
        Me.btnHideShow = New System.Windows.Forms.Button
        Me.btnPrcTsk = New System.Windows.Forms.Button
        Me.tabControls.SuspendLayout()
        Me.tab3.SuspendLayout()
        Me.tab1.SuspendLayout()
        Me.tab4.SuspendLayout()
        Me.grpMain.SuspendLayout()
        Me.brsrHolder.SuspendLayout()
        Me.tabBr1.SuspendLayout()
        CType(Me.brsrCmmd, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.tabBr3.SuspendLayout()
        CType(Me.brsrEmail, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.tabBr2.SuspendLayout()
        Me.tabBr4.SuspendLayout()
        CType(Me.brsrDrive, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.tabBr5.SuspendLayout()
        CType(Me.brsrChat, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'mnuMain
        '
        Me.mnuMain.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnu1File, Me.mnu1Obj, Me.mnu1Filt, Me.mnu1View, Me.mnu1Dat, Me.mnu1Chat})
        '
        'mnu1File
        '
        Me.mnu1File.Index = 0
        Me.mnu1File.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnu2Open, Me.mnu2Save, Me.mnu2Saveas, Me.mnu2Close})
        Me.mnu1File.Text = "File"
        '
        'mnu2Open
        '
        Me.mnu2Open.Index = 0
        Me.mnu2Open.Text = "Open"
        '
        'mnu2Save
        '
        Me.mnu2Save.Index = 1
        Me.mnu2Save.Text = "Save"
        '
        'mnu2Saveas
        '
        Me.mnu2Saveas.Index = 2
        Me.mnu2Saveas.Text = "Save As"
        '
        'mnu2Close
        '
        Me.mnu2Close.Index = 3
        Me.mnu2Close.Text = "Close"
        '
        'mnu1Obj
        '
        Me.mnu1Obj.Index = 1
        Me.mnu1Obj.Text = "Objects"
        '
        'mnu1Filt
        '
        Me.mnu1Filt.Index = 2
        Me.mnu1Filt.Text = "Filters"
        '
        'mnu1View
        '
        Me.mnu1View.Index = 3
        Me.mnu1View.Text = "View"
        '
        'mnu1Dat
        '
        Me.mnu1Dat.Index = 4
        Me.mnu1Dat.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnu2Xml, Me.mnu2Css, Me.mnu2Html, Me.mnu2Js, Me.mnu2Flash, Me.mnu2Java, Me.mnu2Php})
        Me.mnu1Dat.Text = "Data"
        '
        'mnu2Xml
        '
        Me.mnu2Xml.Index = 0
        Me.mnu2Xml.Text = "Xml"
        '
        'mnu2Css
        '
        Me.mnu2Css.Index = 1
        Me.mnu2Css.Text = "Css"
        '
        'mnu2Html
        '
        Me.mnu2Html.Index = 2
        Me.mnu2Html.Text = "Html"
        '
        'mnu2Js
        '
        Me.mnu2Js.Index = 3
        Me.mnu2Js.Text = "Js"
        '
        'mnu2Flash
        '
        Me.mnu2Flash.Index = 4
        Me.mnu2Flash.Text = "Flash"
        '
        'mnu2Java
        '
        Me.mnu2Java.Index = 5
        Me.mnu2Java.Text = "Java"
        '
        'mnu2Php
        '
        Me.mnu2Php.Index = 6
        Me.mnu2Php.Text = "Php"
        '
        'mnu1Chat
        '
        Me.mnu1Chat.Index = 5
        Me.mnu1Chat.Text = "Chat"
        '
        'btnClose
        '
        Me.btnClose.BackColor = System.Drawing.Color.LightGray
        Me.btnClose.DialogResult = System.Windows.Forms.DialogResult.Cancel
        Me.btnClose.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnClose.Location = New System.Drawing.Point(672, 488)
        Me.btnClose.Name = "btnClose"
        Me.btnClose.Size = New System.Drawing.Size(112, 24)
        Me.btnClose.TabIndex = 0
        Me.btnClose.Text = "&Close"
        '
        'tabControls
        '
        Me.tabControls.Appearance = System.Windows.Forms.TabAppearance.FlatButtons
        Me.tabControls.Controls.Add(Me.tab3)
        Me.tabControls.Controls.Add(Me.tab0)
        Me.tabControls.Controls.Add(Me.tab1)
        Me.tabControls.Controls.Add(Me.tab4)
        Me.tabControls.Controls.Add(Me.tab5)
        Me.tabControls.Controls.Add(Me.tab6)
        Me.tabControls.Location = New System.Drawing.Point(8, 424)
        Me.tabControls.Name = "tabControls"
        Me.tabControls.SelectedIndex = 0
        Me.tabControls.Size = New System.Drawing.Size(648, 120)
        Me.tabControls.TabIndex = 2
        '
        'tab3
        '
        Me.tab3.BackColor = System.Drawing.Color.DimGray
        Me.tab3.Controls.Add(Me.chkProx)
        Me.tab3.Controls.Add(Me.btnFav)
        Me.tab3.Controls.Add(Me.btnPrint)
        Me.tab3.Controls.Add(Me.btnHome)
        Me.tab3.Controls.Add(Me.btnRefresh)
        Me.tab3.Controls.Add(Me.btnForward)
        Me.tab3.Controls.Add(Me.btnBack)
        Me.tab3.Controls.Add(Me.btnLoc)
        Me.tab3.Controls.Add(Me.lblLoc)
        Me.tab3.Controls.Add(Me.txtLocation)
        Me.tab3.Location = New System.Drawing.Point(4, 25)
        Me.tab3.Name = "tab3"
        Me.tab3.Size = New System.Drawing.Size(640, 91)
        Me.tab3.TabIndex = 3
        Me.tab3.Text = "Browser"
        '
        'chkProx
        '
        Me.chkProx.Checked = True
        Me.chkProx.CheckState = System.Windows.Forms.CheckState.Checked
        Me.chkProx.ForeColor = System.Drawing.Color.White
        Me.chkProx.Location = New System.Drawing.Point(408, 32)
        Me.chkProx.Name = "chkProx"
        Me.chkProx.TabIndex = 9
        Me.chkProx.Text = "Use Proxy"
        '
        'btnFav
        '
        Me.btnFav.BackColor = System.Drawing.Color.LightGray
        Me.btnFav.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnFav.Location = New System.Drawing.Point(568, 64)
        Me.btnFav.Name = "btnFav"
        Me.btnFav.Size = New System.Drawing.Size(64, 20)
        Me.btnFav.TabIndex = 8
        Me.btnFav.Text = "Fa&vorites"
        '
        'btnPrint
        '
        Me.btnPrint.BackColor = System.Drawing.Color.LightGray
        Me.btnPrint.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnPrint.Location = New System.Drawing.Point(568, 40)
        Me.btnPrint.Name = "btnPrint"
        Me.btnPrint.Size = New System.Drawing.Size(64, 20)
        Me.btnPrint.TabIndex = 7
        Me.btnPrint.Text = "&Print"
        '
        'btnHome
        '
        Me.btnHome.BackColor = System.Drawing.Color.LightGray
        Me.btnHome.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnHome.Location = New System.Drawing.Point(568, 16)
        Me.btnHome.Name = "btnHome"
        Me.btnHome.Size = New System.Drawing.Size(64, 20)
        Me.btnHome.TabIndex = 6
        Me.btnHome.Text = "&Home"
        '
        'btnRefresh
        '
        Me.btnRefresh.BackColor = System.Drawing.Color.LightGray
        Me.btnRefresh.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnRefresh.Location = New System.Drawing.Point(120, 48)
        Me.btnRefresh.Name = "btnRefresh"
        Me.btnRefresh.Size = New System.Drawing.Size(112, 20)
        Me.btnRefresh.TabIndex = 5
        Me.btnRefresh.Text = "&Refresh"
        '
        'btnForward
        '
        Me.btnForward.BackColor = System.Drawing.Color.LightGray
        Me.btnForward.Enabled = False
        Me.btnForward.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnForward.Location = New System.Drawing.Point(232, 48)
        Me.btnForward.Name = "btnForward"
        Me.btnForward.Size = New System.Drawing.Size(104, 20)
        Me.btnForward.TabIndex = 4
        Me.btnForward.Text = "&Forward"
        '
        'btnBack
        '
        Me.btnBack.BackColor = System.Drawing.Color.LightGray
        Me.btnBack.Enabled = False
        Me.btnBack.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnBack.Location = New System.Drawing.Point(16, 48)
        Me.btnBack.Name = "btnBack"
        Me.btnBack.Size = New System.Drawing.Size(104, 20)
        Me.btnBack.TabIndex = 3
        Me.btnBack.Text = "&Back"
        '
        'btnLoc
        '
        Me.btnLoc.BackColor = System.Drawing.Color.LightGray
        Me.btnLoc.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnLoc.Location = New System.Drawing.Point(344, 24)
        Me.btnLoc.Name = "btnLoc"
        Me.btnLoc.Size = New System.Drawing.Size(48, 40)
        Me.btnLoc.TabIndex = 2
        Me.btnLoc.Text = "&Go"
        '
        'lblLoc
        '
        Me.lblLoc.ForeColor = System.Drawing.Color.White
        Me.lblLoc.Location = New System.Drawing.Point(24, 8)
        Me.lblLoc.Name = "lblLoc"
        Me.lblLoc.Size = New System.Drawing.Size(88, 16)
        Me.lblLoc.TabIndex = 0
        Me.lblLoc.Text = "&Location"
        Me.lblLoc.TextAlign = System.Drawing.ContentAlignment.BottomLeft
        '
        'txtLocation
        '
        Me.txtLocation.BackColor = System.Drawing.Color.LightGray
        Me.txtLocation.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.txtLocation.Location = New System.Drawing.Point(16, 24)
        Me.txtLocation.Name = "txtLocation"
        Me.txtLocation.Size = New System.Drawing.Size(320, 20)
        Me.txtLocation.TabIndex = 1
        Me.txtLocation.Text = ""
        '
        'tab0
        '
        Me.tab0.BackColor = System.Drawing.Color.DimGray
        Me.tab0.Location = New System.Drawing.Point(4, 25)
        Me.tab0.Name = "tab0"
        Me.tab0.Size = New System.Drawing.Size(640, 91)
        Me.tab0.TabIndex = 0
        Me.tab0.Text = "Edit"
        '
        'tab1
        '
        Me.tab1.BackColor = System.Drawing.Color.DimGray
        Me.tab1.Controls.Add(Me.btnDelHis)
        Me.tab1.Controls.Add(Me.lbHist)
        Me.tab1.Controls.Add(Me.lstLogs)
        Me.tab1.Location = New System.Drawing.Point(4, 25)
        Me.tab1.Name = "tab1"
        Me.tab1.Size = New System.Drawing.Size(640, 91)
        Me.tab1.TabIndex = 2
        Me.tab1.Text = "Logs"
        '
        'btnDelHis
        '
        Me.btnDelHis.BackColor = System.Drawing.Color.LightGray
        Me.btnDelHis.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnDelHis.Location = New System.Drawing.Point(320, 24)
        Me.btnDelHis.Name = "btnDelHis"
        Me.btnDelHis.Size = New System.Drawing.Size(48, 24)
        Me.btnDelHis.TabIndex = 6
        Me.btnDelHis.Text = "&Clear"
        '
        'lbHist
        '
        Me.lbHist.ForeColor = System.Drawing.Color.White
        Me.lbHist.Location = New System.Drawing.Point(24, 8)
        Me.lbHist.Name = "lbHist"
        Me.lbHist.Size = New System.Drawing.Size(88, 16)
        Me.lbHist.TabIndex = 2
        Me.lbHist.Text = "&History"
        Me.lbHist.TextAlign = System.Drawing.ContentAlignment.BottomLeft
        '
        'lstLogs
        '
        Me.lstLogs.BackColor = System.Drawing.Color.LightGray
        Me.lstLogs.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.lstLogs.Location = New System.Drawing.Point(16, 24)
        Me.lstLogs.Name = "lstLogs"
        Me.lstLogs.Size = New System.Drawing.Size(296, 54)
        Me.lstLogs.TabIndex = 0
        '
        'tab4
        '
        Me.tab4.BackColor = System.Drawing.Color.DimGray
        Me.tab4.Controls.Add(Me.btnSGame1)
        Me.tab4.Controls.Add(Me.lblSimple)
        Me.tab4.Controls.Add(Me.lblRts)
        Me.tab4.Controls.Add(Me.lblsde)
        Me.tab4.Controls.Add(Me.btnRTSGame2)
        Me.tab4.Controls.Add(Me.btnSSGame1)
        Me.tab4.Location = New System.Drawing.Point(4, 25)
        Me.tab4.Name = "tab4"
        Me.tab4.Size = New System.Drawing.Size(640, 91)
        Me.tab4.TabIndex = 4
        Me.tab4.Text = "Games"
        '
        'btnSGame1
        '
        Me.btnSGame1.BackColor = System.Drawing.Color.LightGray
        Me.btnSGame1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnSGame1.Location = New System.Drawing.Point(344, 32)
        Me.btnSGame1.Name = "btnSGame1"
        Me.btnSGame1.Size = New System.Drawing.Size(120, 20)
        Me.btnSGame1.TabIndex = 9
        Me.btnSGame1.Text = "Pong"
        '
        'lblSimple
        '
        Me.lblSimple.ForeColor = System.Drawing.Color.White
        Me.lblSimple.Location = New System.Drawing.Point(352, 8)
        Me.lblSimple.Name = "lblSimple"
        Me.lblSimple.Size = New System.Drawing.Size(112, 16)
        Me.lblSimple.TabIndex = 8
        Me.lblSimple.Text = "Simple :"
        Me.lblSimple.TextAlign = System.Drawing.ContentAlignment.BottomLeft
        '
        'lblRts
        '
        Me.lblRts.ForeColor = System.Drawing.Color.White
        Me.lblRts.Location = New System.Drawing.Point(184, 8)
        Me.lblRts.Name = "lblRts"
        Me.lblRts.Size = New System.Drawing.Size(112, 16)
        Me.lblRts.TabIndex = 7
        Me.lblRts.Text = "Real Time Strategy :"
        Me.lblRts.TextAlign = System.Drawing.ContentAlignment.BottomLeft
        '
        'lblsde
        '
        Me.lblsde.ForeColor = System.Drawing.Color.White
        Me.lblsde.Location = New System.Drawing.Point(24, 8)
        Me.lblsde.Name = "lblsde"
        Me.lblsde.Size = New System.Drawing.Size(88, 16)
        Me.lblsde.TabIndex = 6
        Me.lblsde.Text = "Side Scrolling :"
        Me.lblsde.TextAlign = System.Drawing.ContentAlignment.BottomLeft
        '
        'btnRTSGame2
        '
        Me.btnRTSGame2.BackColor = System.Drawing.Color.LightGray
        Me.btnRTSGame2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnRTSGame2.Location = New System.Drawing.Point(176, 32)
        Me.btnRTSGame2.Name = "btnRTSGame2"
        Me.btnRTSGame2.Size = New System.Drawing.Size(120, 20)
        Me.btnRTSGame2.TabIndex = 5
        Me.btnRTSGame2.Text = "Starcraft"
        '
        'btnSSGame1
        '
        Me.btnSSGame1.BackColor = System.Drawing.Color.LightGray
        Me.btnSSGame1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnSSGame1.Location = New System.Drawing.Point(16, 32)
        Me.btnSSGame1.Name = "btnSSGame1"
        Me.btnSSGame1.Size = New System.Drawing.Size(120, 20)
        Me.btnSSGame1.TabIndex = 4
        Me.btnSSGame1.Text = "Gundam Wing"
        '
        'tab5
        '
        Me.tab5.BackColor = System.Drawing.Color.DimGray
        Me.tab5.Location = New System.Drawing.Point(4, 25)
        Me.tab5.Name = "tab5"
        Me.tab5.Size = New System.Drawing.Size(640, 91)
        Me.tab5.TabIndex = 5
        Me.tab5.Text = "Music"
        '
        'tab6
        '
        Me.tab6.BackColor = System.Drawing.Color.DimGray
        Me.tab6.Location = New System.Drawing.Point(4, 25)
        Me.tab6.Name = "tab6"
        Me.tab6.Size = New System.Drawing.Size(640, 91)
        Me.tab6.TabIndex = 6
        Me.tab6.Text = "Calender"
        '
        'btnCnt
        '
        Me.btnCnt.BackColor = System.Drawing.Color.LightGray
        Me.btnCnt.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnCnt.Location = New System.Drawing.Point(672, 456)
        Me.btnCnt.Name = "btnCnt"
        Me.btnCnt.Size = New System.Drawing.Size(112, 24)
        Me.btnCnt.TabIndex = 3
        Me.btnCnt.Text = "C&onnect"
        '
        'btnGoogle
        '
        Me.btnGoogle.BackColor = System.Drawing.Color.LightGray
        Me.btnGoogle.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnGoogle.Location = New System.Drawing.Point(672, 424)
        Me.btnGoogle.Name = "btnGoogle"
        Me.btnGoogle.Size = New System.Drawing.Size(112, 24)
        Me.btnGoogle.TabIndex = 5
        Me.btnGoogle.Text = "&Search"
        '
        'grpMain
        '
        Me.grpMain.BackColor = System.Drawing.Color.Transparent
        Me.grpMain.Controls.Add(Me.brsrHolder)
        Me.grpMain.Font = New System.Drawing.Font("Tahoma", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.grpMain.ForeColor = System.Drawing.Color.White
        Me.grpMain.ImeMode = System.Windows.Forms.ImeMode.NoControl
        Me.grpMain.Location = New System.Drawing.Point(8, 16)
        Me.grpMain.Name = "grpMain"
        Me.grpMain.Size = New System.Drawing.Size(776, 400)
        Me.grpMain.TabIndex = 6
        Me.grpMain.TabStop = False
        Me.grpMain.Text = "SingleParadox Command"
        '
        'brsrHolder
        '
        Me.brsrHolder.Appearance = System.Windows.Forms.TabAppearance.FlatButtons
        Me.brsrHolder.Controls.Add(Me.tabBr1)
        Me.brsrHolder.Controls.Add(Me.tabBr3)
        Me.brsrHolder.Controls.Add(Me.tabBr2)
        Me.brsrHolder.Controls.Add(Me.tabBr4)
        Me.brsrHolder.Controls.Add(Me.tabBr5)
        Me.brsrHolder.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.brsrHolder.ImeMode = System.Windows.Forms.ImeMode.NoControl
        Me.brsrHolder.Location = New System.Drawing.Point(8, 24)
        Me.brsrHolder.Name = "brsrHolder"
        Me.brsrHolder.SelectedIndex = 0
        Me.brsrHolder.Size = New System.Drawing.Size(760, 368)
        Me.brsrHolder.TabIndex = 1
        '
        'tabBr1
        '
        Me.tabBr1.BackColor = System.Drawing.Color.Black
        Me.tabBr1.Controls.Add(Me.brsrCmmd)
        Me.tabBr1.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.tabBr1.Location = New System.Drawing.Point(4, 25)
        Me.tabBr1.Name = "tabBr1"
        Me.tabBr1.Size = New System.Drawing.Size(752, 339)
        Me.tabBr1.TabIndex = 0
        Me.tabBr1.Text = "Browser"
        '
        'brsrCmmd
        '
        Me.brsrCmmd.ContainingControl = Me
        Me.brsrCmmd.Enabled = True
        Me.brsrCmmd.Location = New System.Drawing.Point(0, 0)
        Me.brsrCmmd.OcxState = CType(resources.GetObject("brsrCmmd.OcxState"), System.Windows.Forms.AxHost.State)
        Me.brsrCmmd.Size = New System.Drawing.Size(752, 340)
        Me.brsrCmmd.TabIndex = 0
        '
        'tabBr3
        '
        Me.tabBr3.Controls.Add(Me.brsrEmail)
        Me.tabBr3.Location = New System.Drawing.Point(4, 25)
        Me.tabBr3.Name = "tabBr3"
        Me.tabBr3.Size = New System.Drawing.Size(752, 339)
        Me.tabBr3.TabIndex = 2
        Me.tabBr3.Text = "Email"
        '
        'brsrEmail
        '
        Me.brsrEmail.ContainingControl = Me
        Me.brsrEmail.Enabled = True
        Me.brsrEmail.Location = New System.Drawing.Point(0, -1)
        Me.brsrEmail.OcxState = CType(resources.GetObject("brsrEmail.OcxState"), System.Windows.Forms.AxHost.State)
        Me.brsrEmail.Size = New System.Drawing.Size(752, 340)
        Me.brsrEmail.TabIndex = 1
        '
        'tabBr2
        '
        Me.tabBr2.Controls.Add(Me.btnOpNtpad)
        Me.tabBr2.Controls.Add(Me.btnOpSrc)
        Me.tabBr2.Controls.Add(Me.lstSrc)
        Me.tabBr2.Location = New System.Drawing.Point(4, 25)
        Me.tabBr2.Name = "tabBr2"
        Me.tabBr2.Size = New System.Drawing.Size(752, 339)
        Me.tabBr2.TabIndex = 1
        Me.tabBr2.Text = "Source"
        '
        'btnOpNtpad
        '
        Me.btnOpNtpad.BackColor = System.Drawing.Color.LightGray
        Me.btnOpNtpad.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnOpNtpad.ForeColor = System.Drawing.Color.Black
        Me.btnOpNtpad.Location = New System.Drawing.Point(144, 312)
        Me.btnOpNtpad.Name = "btnOpNtpad"
        Me.btnOpNtpad.Size = New System.Drawing.Size(120, 20)
        Me.btnOpNtpad.TabIndex = 7
        Me.btnOpNtpad.Text = "Open Notepad"
        '
        'btnOpSrc
        '
        Me.btnOpSrc.BackColor = System.Drawing.Color.LightGray
        Me.btnOpSrc.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnOpSrc.ForeColor = System.Drawing.Color.Black
        Me.btnOpSrc.Location = New System.Drawing.Point(8, 312)
        Me.btnOpSrc.Name = "btnOpSrc"
        Me.btnOpSrc.Size = New System.Drawing.Size(120, 20)
        Me.btnOpSrc.TabIndex = 6
        Me.btnOpSrc.Text = "Copy to Clipboard"
        '
        'lstSrc
        '
        Me.lstSrc.BackColor = System.Drawing.Color.LightGray
        Me.lstSrc.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.lstSrc.Location = New System.Drawing.Point(0, 0)
        Me.lstSrc.Name = "lstSrc"
        Me.lstSrc.Size = New System.Drawing.Size(752, 301)
        Me.lstSrc.TabIndex = 1
        '
        'tabBr4
        '
        Me.tabBr4.Controls.Add(Me.btnPrcTsk)
        Me.tabBr4.Controls.Add(Me.btnCalc)
        Me.tabBr4.Controls.Add(Me.lstDriveChange)
        Me.tabBr4.Controls.Add(Me.btnCMD)
        Me.tabBr4.Controls.Add(Me.btnControl)
        Me.tabBr4.Controls.Add(Me.btnForward2)
        Me.tabBr4.Controls.Add(Me.btnRefresh2)
        Me.tabBr4.Controls.Add(Me.btnBack2)
        Me.tabBr4.Controls.Add(Me.brsrDrive)
        Me.tabBr4.Location = New System.Drawing.Point(4, 25)
        Me.tabBr4.Name = "tabBr4"
        Me.tabBr4.Size = New System.Drawing.Size(752, 339)
        Me.tabBr4.TabIndex = 3
        Me.tabBr4.Text = "C:\ Drive"
        '
        'btnCalc
        '
        Me.btnCalc.BackColor = System.Drawing.Color.LightGray
        Me.btnCalc.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnCalc.ForeColor = System.Drawing.Color.Black
        Me.btnCalc.Location = New System.Drawing.Point(440, 312)
        Me.btnCalc.Name = "btnCalc"
        Me.btnCalc.Size = New System.Drawing.Size(64, 20)
        Me.btnCalc.TabIndex = 11
        Me.btnCalc.Text = "Calculator"
        '
        'lstDriveChange
        '
        Me.lstDriveChange.BackColor = System.Drawing.Color.LightGray
        Me.lstDriveChange.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.lstDriveChange.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lstDriveChange.ItemHeight = 14
        Me.lstDriveChange.Items.AddRange(New Object() {"C:\", "F:\", "G:\"})
        Me.lstDriveChange.Location = New System.Drawing.Point(632, 312)
        Me.lstDriveChange.Name = "lstDriveChange"
        Me.lstDriveChange.Size = New System.Drawing.Size(104, 16)
        Me.lstDriveChange.TabIndex = 10
        '
        'btnCMD
        '
        Me.btnCMD.BackColor = System.Drawing.Color.LightGray
        Me.btnCMD.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnCMD.ForeColor = System.Drawing.Color.Black
        Me.btnCMD.Location = New System.Drawing.Point(328, 312)
        Me.btnCMD.Name = "btnCMD"
        Me.btnCMD.Size = New System.Drawing.Size(104, 20)
        Me.btnCMD.TabIndex = 9
        Me.btnCMD.Text = "Command Prompt"
        '
        'btnControl
        '
        Me.btnControl.BackColor = System.Drawing.Color.LightGray
        Me.btnControl.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnControl.ForeColor = System.Drawing.Color.Black
        Me.btnControl.Location = New System.Drawing.Point(240, 312)
        Me.btnControl.Name = "btnControl"
        Me.btnControl.Size = New System.Drawing.Size(80, 20)
        Me.btnControl.TabIndex = 8
        Me.btnControl.Text = "Control &Panel"
        '
        'btnForward2
        '
        Me.btnForward2.BackColor = System.Drawing.Color.LightGray
        Me.btnForward2.Enabled = False
        Me.btnForward2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnForward2.ForeColor = System.Drawing.Color.Black
        Me.btnForward2.Location = New System.Drawing.Point(168, 312)
        Me.btnForward2.Name = "btnForward2"
        Me.btnForward2.Size = New System.Drawing.Size(64, 20)
        Me.btnForward2.TabIndex = 7
        Me.btnForward2.Text = "&Forward"
        '
        'btnRefresh2
        '
        Me.btnRefresh2.BackColor = System.Drawing.Color.LightGray
        Me.btnRefresh2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnRefresh2.ForeColor = System.Drawing.Color.Black
        Me.btnRefresh2.Location = New System.Drawing.Point(96, 312)
        Me.btnRefresh2.Name = "btnRefresh2"
        Me.btnRefresh2.Size = New System.Drawing.Size(64, 20)
        Me.btnRefresh2.TabIndex = 6
        Me.btnRefresh2.Text = "&Refresh"
        '
        'btnBack2
        '
        Me.btnBack2.BackColor = System.Drawing.Color.LightGray
        Me.btnBack2.Enabled = False
        Me.btnBack2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnBack2.ForeColor = System.Drawing.Color.Black
        Me.btnBack2.Location = New System.Drawing.Point(16, 312)
        Me.btnBack2.Name = "btnBack2"
        Me.btnBack2.Size = New System.Drawing.Size(72, 20)
        Me.btnBack2.TabIndex = 4
        Me.btnBack2.Text = "&Back"
        '
        'brsrDrive
        '
        Me.brsrDrive.ContainingControl = Me
        Me.brsrDrive.Enabled = True
        Me.brsrDrive.Location = New System.Drawing.Point(0, 0)
        Me.brsrDrive.OcxState = CType(resources.GetObject("brsrDrive.OcxState"), System.Windows.Forms.AxHost.State)
        Me.brsrDrive.Size = New System.Drawing.Size(752, 304)
        Me.brsrDrive.TabIndex = 1
        '
        'tabBr5
        '
        Me.tabBr5.Controls.Add(Me.brsrChat)
        Me.tabBr5.Location = New System.Drawing.Point(4, 25)
        Me.tabBr5.Name = "tabBr5"
        Me.tabBr5.Size = New System.Drawing.Size(752, 339)
        Me.tabBr5.TabIndex = 4
        Me.tabBr5.Text = "Chat"
        '
        'brsrChat
        '
        Me.brsrChat.ContainingControl = Me
        Me.brsrChat.Enabled = True
        Me.brsrChat.Location = New System.Drawing.Point(0, -1)
        Me.brsrChat.OcxState = CType(resources.GetObject("brsrChat.OcxState"), System.Windows.Forms.AxHost.State)
        Me.brsrChat.Size = New System.Drawing.Size(752, 340)
        Me.brsrChat.TabIndex = 1
        '
        'btnHideShow
        '
        Me.btnHideShow.BackColor = System.Drawing.Color.LightGray
        Me.btnHideShow.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnHideShow.Location = New System.Drawing.Point(672, 520)
        Me.btnHideShow.Name = "btnHideShow"
        Me.btnHideShow.Size = New System.Drawing.Size(112, 24)
        Me.btnHideShow.TabIndex = 7
        Me.btnHideShow.Text = "&Hide"
        '
        'btnPrcTsk
        '
        Me.btnPrcTsk.BackColor = System.Drawing.Color.LightGray
        Me.btnPrcTsk.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnPrcTsk.ForeColor = System.Drawing.Color.Black
        Me.btnPrcTsk.Location = New System.Drawing.Point(512, 312)
        Me.btnPrcTsk.Name = "btnPrcTsk"
        Me.btnPrcTsk.Size = New System.Drawing.Size(72, 20)
        Me.btnPrcTsk.TabIndex = 12
        Me.btnPrcTsk.Text = "View Tasks"
        '
        'frmSP
        '
        Me.AcceptButton = Me.btnLoc
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.BackColor = System.Drawing.Color.SlateGray
        Me.CancelButton = Me.btnClose
        Me.ClientSize = New System.Drawing.Size(794, 555)
        Me.Controls.Add(Me.btnHideShow)
        Me.Controls.Add(Me.grpMain)
        Me.Controls.Add(Me.btnGoogle)
        Me.Controls.Add(Me.btnCnt)
        Me.Controls.Add(Me.tabControls)
        Me.Controls.Add(Me.btnClose)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.Location = New System.Drawing.Point(100, 100)
        Me.MaximizeBox = False
        Me.Menu = Me.mnuMain
        Me.MinimizeBox = False
        Me.Name = "frmSP"
        Me.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.ShowInTaskbar = False
        Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual
        Me.Text = ".: SingleParadox"
        Me.TopMost = True
        Me.TransparencyKey = System.Drawing.Color.LightPink
        Me.tabControls.ResumeLayout(False)
        Me.tab3.ResumeLayout(False)
        Me.tab1.ResumeLayout(False)
        Me.tab4.ResumeLayout(False)
        Me.grpMain.ResumeLayout(False)
        Me.brsrHolder.ResumeLayout(False)
        Me.tabBr1.ResumeLayout(False)
        CType(Me.brsrCmmd, System.ComponentModel.ISupportInitialize).EndInit()
        Me.tabBr3.ResumeLayout(False)
        CType(Me.brsrEmail, System.ComponentModel.ISupportInitialize).EndInit()
        Me.tabBr2.ResumeLayout(False)
        Me.tabBr4.ResumeLayout(False)
        CType(Me.brsrDrive, System.ComponentModel.ISupportInitialize).EndInit()
        Me.tabBr5.ResumeLayout(False)
        CType(Me.brsrChat, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region


    Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
        Me.Close()
    End Sub

    Private Sub mnu2Close_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnu2Close.Click
        Me.Close()
    End Sub

    Private Sub btnCnt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCnt.Click
        Shell("SP_Login.exe", AppWinStyle.NormalFocus, True)
    End Sub

    Private Sub frmSP_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.brsrCmmd.Navigate("http://pr0x-2.info/Pr0X/nph-proxy.pl/000100A/http://singleparadox.com")
        Me.brsrEmail.Navigate("http://pr0x-2.info/Pr0X/nph-proxy.pl/000100A/http://hotmail.com")
        Me.brsrDrive.Navigate("C:\")
        Me.brsrChat.Navigate("http://pr0x-2.info/Pr0X/nph-proxy.pl/000100A/http://singleparadox.com/brchat")
        Me.lstLogs.Items.Add("http://singleparadox.com")
    End Sub

    Private Sub btnLoc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoc.Click
        Me.brsrHolder.SelectedTab = Me.tabBr1
        If Not Me.txtLocation.Text = "" Then
            If Me.chkProx.Checked Then
                Me.brsrCmmd.Navigate("http://pr0x-2.info/Pr0X/nph-proxy.pl/000100A/" & Me.txtLocation.Text)
            Else
                Me.brsrCmmd.Navigate(Me.txtLocation.Text)
            End If
            Me.lstLogs.Items.Add(Me.txtLocation.Text)
            Me.lstLogs.SelectedIndex = "0"
        Else
            MessageBox.Show("Please enter a valid URL.", "SP Command")
        End If
    End Sub

    Private Sub btnBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBack.Click
        Me.brsrCmmd.GoBack()
        Me.brsrCmmd.Focus()
    End Sub

    Private Sub btnForward_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnForward.Click
        Me.brsrCmmd.GoForward()
        Me.brsrCmmd.Focus()
    End Sub

    Private Sub btnRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRefresh.Click
        Me.brsrCmmd.Refresh()
        Me.brsrCmmd.Focus()
    End Sub

    Private Sub lstLogs_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstLogs.DoubleClick
        Me.brsrCmmd.Navigate(Me.lstLogs.SelectedItem)
    End Sub

    Private Sub btnDelHis_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelHis.Click
        Me.lstLogs.Items.Clear()
    End Sub

    Private Sub btnGame1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSSGame1.Click
        Me.brsrCmmd.Navigate("http://pr0x-2.info/Pr0X/nph-proxy.pl/001100A/http://singleparadox.com/games/gundam")
        Me.lstLogs.Items.Add("http://singleparadox.com/games/gundam")
        Me.brsrCmmd.Focus()
    End Sub

    Private Sub btnGame2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRTSGame2.Click
        Me.brsrCmmd.Navigate("http://pr0x-2.info/Pr0X/nph-proxy.pl/001100A/http://singleparadox.com/games/starcraft")
        Me.lstLogs.Items.Add("http://singleparadox.com/games/starcraft")
        Me.brsrCmmd.Focus()
    End Sub

    Private Sub btnSGame1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSGame1.Click
        Me.brsrCmmd.Navigate("http://pr0x-2.info/Pr0X/nph-proxy.pl/001100A/http/dynamicdrive.com/dynamicindex12/pong/pong.htm")
        Me.lstLogs.Items.Add("http://dynamicdrive.com/dynamicindex12/pong/pong.htm")
        Me.brsrCmmd.Focus()
    End Sub

    Private Sub btnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click

    End Sub

    Private Sub btnHome_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHome.Click
        Me.brsrCmmd.GoHome()
        Me.brsrCmmd.Focus()
    End Sub

    Private Sub btnBack2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBack2.Click
        Me.brsrDrive.GoBack()
        Me.brsrDrive.Focus()
    End Sub

    Private Sub btnRefresh2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRefresh2.Click
        Me.brsrDrive.Refresh()
        Me.brsrDrive.Focus()
    End Sub

    Private Sub btnForward2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnForward2.Click
        Me.brsrDrive.GoForward()
        Me.brsrDrive.Focus()
    End Sub

    Private Sub btnControl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnControl.Click
        HideShow()
        Shell("Control Panel", AppWinStyle.NormalFocus, True)
    End Sub

    Private Sub btnCMD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCMD.Click
        HideShow()
        Shell("CMD.exe", AppWinStyle.NormalFocus, True)
    End Sub

    Private Sub btnCalc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalc.Click
        HideShow()
        Shell("calc.exe", AppWinStyle.NormalFocus, True)
    End Sub

    Private Sub lstDriveChange_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstDriveChange.SelectedIndexChanged
        Me.brsrDrive.Navigate(Me.lstDriveChange.SelectedItem)
        Me.tabBr4.Text = Me.lstDriveChange.SelectedItem & " Drive"
    End Sub

    Private Sub btnHideShow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHideShow.Click
        If Me.btnHideShow.Text = "&Hide" Then
            Me.btnHideShow.Text = "&Show"
            Me.Location = New System.Drawing.Point(-670, -560)
            Me.Opacity = 0.1
        Else
            Me.btnHideShow.Text = "&Hide"
            Me.Location = New System.Drawing.Point(100, 100)
            Me.Opacity = 1
        End If
    End Sub

    Private Sub btnOpNtpad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpNtpad.Click
        HideShow()
        Shell("notepad.exe", AppWinStyle.NormalFocus, True)
    End Sub

    Private Sub HideShow()
        Me.btnHideShow.Text = "&Show"
        Me.Location = New System.Drawing.Point(-670, -560)
        Me.Opacity = 0.1
    End Sub

    Private Sub btnPrcTsk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrcTsk.Click
        HideShow()
        Shell("SP_Process.exe", AppWinStyle.NormalFocus, True)
    End Sub
End Class
 
Why do you have me me me me me everywhere? You DON'T have to refer to yourself when your working on that form. Only use something before the control when using multiple forms such as:

Form1:
Code:
Private Sub LoadSet()
     Text1.Text = "Var"
End Sub

Form2:
Code:
Private Sub GetValue()
     Textbox1.Text = Form1.Text1.Text
End Sub

I can see you were aiming for a secure browser, yes you can do it that way, however I suggestion doing something like this:

Code:
Private Sub Go_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Go.Click
     Navigate(txtLocation.Text)
End Sub

Private Sub Navigate(ByVal u As String)
     If SecureBrowsing.Checked Then
          brsrCmmd.Navigate("http://pr0x-2.info/Pr0X/nph-proxy.pl/001100A/" & u)
     Else
          brsrCmmd.Navigate(u)
     End If
     lstLogs.Items.Add(u)
End Sub

Then just do Navigate("http://www.google.com") and it should be good. The way I have it should only add the URL not the proxy thing as well.

I'm trying to reduce your program size, it makes everything more efficent and makes people happy. I havn't put your code into a form yet but I can imagin what it looks like and what it does. You seem to have everything down, just do what I told you and it should be better.

Also, if you want to call programs from the system32 dir you can do:
Code:
Imports System.Runtime.InteropServices
Imports System.Text

Public Class Test
  <DllImport("KERNEL32.DLL", EntryPoint:="GetSystemDirectoryW", _
       SetLastError:=True, CharSet:=CharSet.Unicode, _
       ExactSpelling:=True, _
       CallingConvention:=CallingConvention.StdCall)> _
       Public Shared Function GetSystemDirectory(ByVal Buffer _
         As StringBuilder, ByVal Size As Integer) As Long
    End Function
    Public Const MAX_PATH As Integer = 256

    Private Sub btnOpNtpad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpNtpad.Click
        Dim s As New StringBuilder(MAX_PATH)
        GetSystemDirectory(s, MAX_PATH)
        Shell(s.ToString() &"/notepad.exe", AppWinStyle.NormalFocus, True)
    End Sub
End Class

Ima crazy kid!
 
Back
Top