Click here to Skip to main content
11,427,997 members (61,111 online)
Click here to Skip to main content
Add your own
alternative version

Play your AVI files with this DirectX video player

, 24 Apr 2013 CPOL
Plays AVI files using Microsoft's DirectX.AudioVideoPlayback.
dadsaviplayer-noexe.zip
DadsAVIPlayer
DadsAVIPlayer
ac0036-24.ico
bin
Release
app.publish
Application Files
DadsAVIPlayer_1_0_0_19
ac0036-24.ico.deploy
DadsAVIPlayer.exe.deploy
DadsAVIPlayer.exe.manifest
DadsAVIPlayer.application
DadsAVIPlayer.application
DadsAVIPlayer.exe.manifest
DadsAVIPlayer.vbproj.user
DadsAVIPlayer_TemporaryKey.pfx
My Project
Application.myapp
Settings.settings
publish
Application Files
DadsAVIPlayer_1_0_0_17
ac0036-24.ico.deploy
DadsAVIPlayer.application
DadsAVIPlayer.exe.deploy
DadsAVIPlayer.exe.manifest
DadsAVIPlayer_1_0_0_18
ac0036-24.ico.deploy
DadsAVIPlayer.application
DadsAVIPlayer.exe.deploy
DadsAVIPlayer.exe.manifest
DadsAVIPlayer_1_0_0_19
ac0036-24.ico.deploy
DadsAVIPlayer.application
DadsAVIPlayer.exe.deploy
DadsAVIPlayer.exe.manifest
DadsAVIPlayer.application
Resources
001_29.bmp
arrow_in.png
arrow_out.png
control_end.png
control_pause.png
control_play.png
control_stop.png
door.png
door_open.png
info.png
Video - AVI.png
DadsAVIPlayer.zip
ac0036-24.ico
ac0036-24.ico.deploy
DadsAVIPlayer.exe.deploy
DadsAVIPlayer.exe.manifest
DadsAVIPlayer.application
setup.exe
DadsAVIPlayer.application
DadsAVIPlayer.exe
DadsAVIPlayer.exe.manifest
DadsAVIPlayer.vbproj.user
DadsAVIPlayer_TemporaryKey.pfx
Application.myapp
Settings.settings
ac0036-24.ico.deploy
DadsAVIPlayer.application
DadsAVIPlayer.exe.deploy
DadsAVIPlayer.exe.manifest
ac0036-24.ico.deploy
DadsAVIPlayer.application
DadsAVIPlayer.exe.deploy
DadsAVIPlayer.exe.manifest
ac0036-24.ico.deploy
DadsAVIPlayer.application
DadsAVIPlayer.exe.deploy
DadsAVIPlayer.exe.manifest
DadsAVIPlayer.application
setup.exe
001_29.bmp
arrow_in.png
arrow_out.png
control_end.png
control_pause.png
control_play.png
control_stop.png
door.png
door_open.png
info.png
Video - AVI.png
Service References
rspPlayer-noexe.zip
rspPlayer
rspPlayer
bin
Release
mp3.ico
My Project
Application.myapp
Settings.settings
Resources
down.png
fileopen.png
info.png
Knob Shuffle On.png
Menu.png
next.png
player_pause.png
player_play.png
player_stop.png
playlist.png
previous.png
tag_white.png
up.png
rspPlayer.vbproj.user
rspPlayer.zip
Debug
gTrackBar.dll
rspPlayer.exe
mp3.ico
Application.myapp
Settings.settings
obj
Debug
TempPE
Release
TempPE
down.png
fileopen.png
info.png
Knob Shuffle On.png
Menu.png
next.png
player_pause.png
player_play.png
player_stop.png
playlist.png
previous.png
tag_white.png
up.png
rspPlayer.vbproj.user
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmPlayer
    Inherits ComponentFactory.Krypton.Toolkit.KryptonForm

    'Form overrides dispose to clean up the component list.
    <System.Diagnostics.DebuggerNonUserCode()> _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing AndAlso components IsNot Nothing Then
            components.Dispose()
        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.
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmPlayer))
        Me.KryptonPanel = New ComponentFactory.Krypton.Toolkit.KryptonPanel
        Me.kbtnTagInfo = New ComponentFactory.Krypton.Toolkit.KryptonButton
        Me.kp1 = New ComponentFactory.Krypton.Toolkit.KryptonPalette(Me.components)
        Me.kbtnClearListBoxes = New ComponentFactory.Krypton.Toolkit.KryptonButton
        Me.KryptonPanel1 = New ComponentFactory.Krypton.Toolkit.KryptonPanel
        Me.krbRandom = New ComponentFactory.Krypton.Toolkit.KryptonRadioButton
        Me.krbRepeat = New ComponentFactory.Krypton.Toolkit.KryptonRadioButton
        Me.krbSequential = New ComponentFactory.Krypton.Toolkit.KryptonRadioButton
        Me.gtbVolume = New gTrackBar.gTrackBar
        Me.KryptonLabel1 = New ComponentFactory.Krypton.Toolkit.KryptonLabel
        Me.klblPctDone = New ComponentFactory.Krypton.Toolkit.KryptonLabel
        Me.klblTime = New ComponentFactory.Krypton.Toolkit.KryptonLabel
        Me.klblStatus = New ComponentFactory.Krypton.Toolkit.KryptonLabel
        Me.gtbPosition = New gTrackBar.gTrackBar
        Me.klstPlaylist = New ComponentFactory.Krypton.Toolkit.KryptonListBox
        Me.klstSongs = New ComponentFactory.Krypton.Toolkit.KryptonListBox
        Me.KryptPlayerPanel = New ComponentFactory.Krypton.Toolkit.KryptonPanel
        Me.kbtnAbout = New ComponentFactory.Krypton.Toolkit.KryptonButton
        Me.kbtnNext = New ComponentFactory.Krypton.Toolkit.KryptonButton
        Me.kbtnPrevious = New ComponentFactory.Krypton.Toolkit.KryptonButton
        Me.kbtnShuffle = New ComponentFactory.Krypton.Toolkit.KryptonButton
        Me.kbtnLoadAllPlayLists = New ComponentFactory.Krypton.Toolkit.KryptonButton
        Me.kbtnCreataPlaylist = New ComponentFactory.Krypton.Toolkit.KryptonButton
        Me.kbtnStop = New ComponentFactory.Krypton.Toolkit.KryptonButton
        Me.kbtnPause = New ComponentFactory.Krypton.Toolkit.KryptonButton
        Me.kbtnPlay = New ComponentFactory.Krypton.Toolkit.KryptonButton
        Me.kbtnOpen = New ComponentFactory.Krypton.Toolkit.KryptonButton
        Me.KryptMan = New ComponentFactory.Krypton.Toolkit.KryptonManager(Me.components)
        Me.ofd = New System.Windows.Forms.OpenFileDialog
        Me.sfd = New System.Windows.Forms.SaveFileDialog
        Me.audioTimer = New System.Windows.Forms.Timer(Me.components)
        Me.tt = New System.Windows.Forms.ToolTip(Me.components)
        CType(Me.KryptonPanel, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.KryptonPanel.SuspendLayout()
        CType(Me.KryptonPanel1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.KryptonPanel1.SuspendLayout()
        CType(Me.KryptPlayerPanel, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.KryptPlayerPanel.SuspendLayout()
        Me.SuspendLayout()
        '
        'KryptonPanel
        '
        Me.KryptonPanel.Controls.Add(Me.kbtnTagInfo)
        Me.KryptonPanel.Controls.Add(Me.kbtnClearListBoxes)
        Me.KryptonPanel.Controls.Add(Me.KryptonPanel1)
        Me.KryptonPanel.Controls.Add(Me.gtbVolume)
        Me.KryptonPanel.Controls.Add(Me.KryptonLabel1)
        Me.KryptonPanel.Controls.Add(Me.klblPctDone)
        Me.KryptonPanel.Controls.Add(Me.klblTime)
        Me.KryptonPanel.Controls.Add(Me.klblStatus)
        Me.KryptonPanel.Controls.Add(Me.gtbPosition)
        Me.KryptonPanel.Controls.Add(Me.klstPlaylist)
        Me.KryptonPanel.Controls.Add(Me.klstSongs)
        Me.KryptonPanel.Controls.Add(Me.KryptPlayerPanel)
        Me.KryptonPanel.Dock = System.Windows.Forms.DockStyle.Fill
        Me.KryptonPanel.Location = New System.Drawing.Point(0, 0)
        Me.KryptonPanel.Name = "KryptonPanel"
        Me.KryptonPanel.Size = New System.Drawing.Size(530, 486)
        Me.KryptonPanel.TabIndex = 0
        '
        'kbtnTagInfo
        '
        Me.kbtnTagInfo.Location = New System.Drawing.Point(245, 225)
        Me.kbtnTagInfo.Margin = New System.Windows.Forms.Padding(4, 6, 0, 6)
        Me.kbtnTagInfo.Name = "kbtnTagInfo"
        Me.kbtnTagInfo.Palette = Me.kp1
        Me.kbtnTagInfo.PaletteMode = ComponentFactory.Krypton.Toolkit.PaletteMode.Custom
        Me.kbtnTagInfo.Size = New System.Drawing.Size(41, 39)
        Me.kbtnTagInfo.StateCommon.Back.Image = Global.rspPlayer.My.Resources.Resources.tag_white
        Me.kbtnTagInfo.StateCommon.Back.ImageStyle = ComponentFactory.Krypton.Toolkit.PaletteImageStyle.CenterMiddle
        Me.kbtnTagInfo.StateNormal.Back.Image = Global.rspPlayer.My.Resources.Resources.tag_white
        Me.kbtnTagInfo.StateNormal.Back.ImageStyle = ComponentFactory.Krypton.Toolkit.PaletteImageStyle.CenterMiddle
        Me.kbtnTagInfo.StatePressed.Back.Color1 = System.Drawing.Color.Orange
        Me.kbtnTagInfo.StatePressed.Back.Color2 = System.Drawing.Color.Black
        Me.kbtnTagInfo.StatePressed.Back.Image = Global.rspPlayer.My.Resources.Resources.tag_white
        Me.kbtnTagInfo.StatePressed.Back.ImageStyle = ComponentFactory.Krypton.Toolkit.PaletteImageStyle.CenterMiddle
        Me.kbtnTagInfo.StatePressed.Border.Color1 = System.Drawing.Color.Purple
        Me.kbtnTagInfo.StatePressed.Border.DrawBorders = CType((((ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Top Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Bottom) _
                    Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Left) _
                    Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Right), ComponentFactory.Krypton.Toolkit.PaletteDrawBorders)
        Me.kbtnTagInfo.StateTracking.Back.Image = Global.rspPlayer.My.Resources.Resources.tag_white
        Me.kbtnTagInfo.StateTracking.Back.ImageStyle = ComponentFactory.Krypton.Toolkit.PaletteImageStyle.CenterMiddle
        Me.kbtnTagInfo.StateTracking.Border.Color1 = System.Drawing.Color.Lime
        Me.kbtnTagInfo.StateTracking.Border.DrawBorders = CType((((ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Top Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Bottom) _
                    Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Left) _
                    Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Right), ComponentFactory.Krypton.Toolkit.PaletteDrawBorders)
        Me.kbtnTagInfo.TabIndex = 11
        Me.tt.SetToolTip(Me.kbtnTagInfo, "ID3v1 Tag Information")
        Me.kbtnTagInfo.Values.Image = Global.rspPlayer.My.Resources.Resources.tag_white
        Me.kbtnTagInfo.Values.Text = ""
        '
        'kp1
        '
        Me.kp1.BasePaletteMode = ComponentFactory.Krypton.Toolkit.PaletteMode.SparkleOrange
        '
        'kbtnClearListBoxes
        '
        Me.kbtnClearListBoxes.Location = New System.Drawing.Point(245, 145)
        Me.kbtnClearListBoxes.Margin = New System.Windows.Forms.Padding(4, 6, 0, 6)
        Me.kbtnClearListBoxes.Name = "kbtnClearListBoxes"
        Me.kbtnClearListBoxes.Palette = Me.kp1
        Me.kbtnClearListBoxes.PaletteMode = ComponentFactory.Krypton.Toolkit.PaletteMode.Custom
        Me.kbtnClearListBoxes.Size = New System.Drawing.Size(41, 36)
        Me.kbtnClearListBoxes.StatePressed.Back.Color1 = System.Drawing.Color.Orange
        Me.kbtnClearListBoxes.StatePressed.Back.Color2 = System.Drawing.Color.Black
        Me.kbtnClearListBoxes.StatePressed.Border.Color1 = System.Drawing.Color.Purple
        Me.kbtnClearListBoxes.StatePressed.Border.DrawBorders = CType((((ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Top Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Bottom) _
                    Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Left) _
                    Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Right), ComponentFactory.Krypton.Toolkit.PaletteDrawBorders)
        Me.kbtnClearListBoxes.StateTracking.Border.Color1 = System.Drawing.Color.Lime
        Me.kbtnClearListBoxes.StateTracking.Border.DrawBorders = CType((((ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Top Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Bottom) _
                    Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Left) _
                    Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Right), ComponentFactory.Krypton.Toolkit.PaletteDrawBorders)
        Me.kbtnClearListBoxes.TabIndex = 10
        Me.tt.SetToolTip(Me.kbtnClearListBoxes, "Clears ListBoxes!")
        Me.kbtnClearListBoxes.Values.Text = "< - >"
        '
        'KryptonPanel1
        '
        Me.KryptonPanel1.Controls.Add(Me.krbRandom)
        Me.KryptonPanel1.Controls.Add(Me.krbRepeat)
        Me.KryptonPanel1.Controls.Add(Me.krbSequential)
        Me.KryptonPanel1.Location = New System.Drawing.Point(434, 391)
        Me.KryptonPanel1.Name = "KryptonPanel1"
        Me.KryptonPanel1.Size = New System.Drawing.Size(84, 81)
        Me.KryptonPanel1.TabIndex = 9
        '
        'krbRandom
        '
        Me.krbRandom.Location = New System.Drawing.Point(9, 61)
        Me.krbRandom.Name = "krbRandom"
        Me.krbRandom.Palette = Me.kp1
        Me.krbRandom.PaletteMode = ComponentFactory.Krypton.Toolkit.PaletteMode.Custom
        Me.krbRandom.Size = New System.Drawing.Size(67, 19)
        Me.krbRandom.StateNormal.ShortText.Font = New System.Drawing.Font("Consolas", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.krbRandom.TabIndex = 2
        Me.krbRandom.Values.Text = "Random"
        '
        'krbRepeat
        '
        Me.krbRepeat.Location = New System.Drawing.Point(9, 36)
        Me.krbRepeat.Name = "krbRepeat"
        Me.krbRepeat.Palette = Me.kp1
        Me.krbRepeat.PaletteMode = ComponentFactory.Krypton.Toolkit.PaletteMode.Custom
        Me.krbRepeat.Size = New System.Drawing.Size(67, 19)
        Me.krbRepeat.StateNormal.ShortText.Font = New System.Drawing.Font("Consolas", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.krbRepeat.TabIndex = 1
        Me.krbRepeat.Values.Text = "Repeat"
        '
        'krbSequential
        '
        Me.krbSequential.Checked = True
        Me.krbSequential.Location = New System.Drawing.Point(9, 11)
        Me.krbSequential.Name = "krbSequential"
        Me.krbSequential.Palette = Me.kp1
        Me.krbSequential.PaletteMode = ComponentFactory.Krypton.Toolkit.PaletteMode.Custom
        Me.krbSequential.Size = New System.Drawing.Size(67, 19)
        Me.krbSequential.StateNormal.ShortText.Font = New System.Drawing.Font("Consolas", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.krbSequential.TabIndex = 0
        Me.krbSequential.Values.Text = "Normal"
        '
        'gtbVolume
        '
        Me.gtbVolume.AButColorA = System.Drawing.Color.CornflowerBlue
        Me.gtbVolume.AButColorB = System.Drawing.Color.Lavender
        Me.gtbVolume.AButColorBorder = System.Drawing.Color.SteelBlue
        Me.gtbVolume.ArrowColorDown = System.Drawing.Color.GhostWhite
        Me.gtbVolume.ArrowColorHover = System.Drawing.Color.DarkBlue
        Me.gtbVolume.ArrowColorUp = System.Drawing.Color.LightSteelBlue
        Me.gtbVolume.BackColor = System.Drawing.Color.Transparent
        Me.gtbVolume.BorderColor = System.Drawing.Color.Black
        Me.gtbVolume.BorderShow = False
        Me.gtbVolume.BrushDirection = System.Drawing.Drawing2D.LinearGradientMode.Horizontal
        Me.gtbVolume.BrushStyle = gTrackBar.gTrackBar.eBrushStyle.Path
        Me.gtbVolume.ChangeLarge = 10
        Me.gtbVolume.ChangeSmall = 1
        Me.gtbVolume.ColorDown = System.Drawing.Color.CornflowerBlue
        Me.gtbVolume.ColorDownBorder = System.Drawing.Color.DarkSlateBlue
        Me.gtbVolume.ColorDownHiLt = System.Drawing.Color.AliceBlue
        Me.gtbVolume.ColorHover = System.Drawing.Color.RoyalBlue
        Me.gtbVolume.ColorHoverBorder = System.Drawing.Color.Blue
        Me.gtbVolume.ColorHoverHiLt = System.Drawing.Color.White
        Me.gtbVolume.ColorUp = System.Drawing.Color.MediumBlue
        Me.gtbVolume.ColorUpBorder = System.Drawing.Color.DarkBlue
        Me.gtbVolume.ColorUpHiLt = System.Drawing.Color.AliceBlue
        Me.gtbVolume.FloatValue = True
        Me.gtbVolume.FloatValueFont = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Bold)
        Me.gtbVolume.FloatValueFontColor = System.Drawing.Color.MediumBlue
        Me.gtbVolume.Label = Nothing
        Me.gtbVolume.LabelAlighnment = System.Drawing.StringAlignment.Near
        Me.gtbVolume.LabelColor = System.Drawing.Color.MediumBlue
        Me.gtbVolume.LabelFont = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Bold)
        Me.gtbVolume.LabelPadding = New System.Windows.Forms.Padding(3)
        Me.gtbVolume.LabelShow = False
        Me.gtbVolume.Location = New System.Drawing.Point(1, 425)
        Me.gtbVolume.Margin = New System.Windows.Forms.Padding(2, 3, 2, 3)
        Me.gtbVolume.MaxValue = 0
        Me.gtbVolume.MinValue = -10000
        Me.gtbVolume.Name = "gtbVolume"
        Me.gtbVolume.Orientation = System.Windows.Forms.Orientation.Horizontal
        Me.gtbVolume.ShowFocus = True
        Me.gtbVolume.Size = New System.Drawing.Size(195, 18)
        Me.gtbVolume.SliderCapEnd = System.Drawing.Drawing2D.LineCap.Round
        Me.gtbVolume.SliderCapStart = System.Drawing.Drawing2D.LineCap.Round
        Me.gtbVolume.SliderColorHigh = System.Drawing.Color.Lime
        Me.gtbVolume.SliderColorLow = System.Drawing.Color.Black
        Me.gtbVolume.SliderFocalPt = CType(resources.GetObject("gtbVolume.SliderFocalPt"), System.Drawing.PointF)
        Me.gtbVolume.SliderHighlightPt = CType(resources.GetObject("gtbVolume.SliderHighlightPt"), System.Drawing.PointF)
        Me.gtbVolume.SliderImage = Nothing
        Me.gtbVolume.SliderShape = gTrackBar.gTrackBar.eShape.Ellipse
        Me.gtbVolume.SliderSize = New System.Drawing.Size(10, 10)
        Me.gtbVolume.SliderWidthHigh = 2
        Me.gtbVolume.SliderWidthLow = 1
        Me.gtbVolume.TabIndex = 8
        Me.gtbVolume.TickColor = System.Drawing.Color.DarkGray
        Me.gtbVolume.TickInterval = 10
        Me.gtbVolume.TickType = gTrackBar.gTrackBar.eTickType.None
        Me.gtbVolume.TickWidth = 5
        Me.gtbVolume.UpDownAutoWidth = False
        Me.gtbVolume.UpDownShow = False
        Me.gtbVolume.UpDownWidth = 30
        Me.gtbVolume.Value = -100
        Me.gtbVolume.ValueBox = gTrackBar.gTrackBar.eValueBox.None
        Me.gtbVolume.ValueBoxBackColor = System.Drawing.Color.White
        Me.gtbVolume.ValueBoxBorder = System.Drawing.Color.MediumBlue
        Me.gtbVolume.ValueBoxFont = New System.Drawing.Font("Arial", 8.25!)
        Me.gtbVolume.ValueBoxFontColor = System.Drawing.Color.MediumBlue
        Me.gtbVolume.ValueBoxShape = gTrackBar.gTrackBar.eShape.Rectangle
        Me.gtbVolume.ValueBoxSize = New System.Drawing.Size(30, 20)
        '
        'KryptonLabel1
        '
        Me.KryptonLabel1.Location = New System.Drawing.Point(61, 449)
        Me.KryptonLabel1.Name = "KryptonLabel1"
        Me.KryptonLabel1.Palette = Me.kp1
        Me.KryptonLabel1.PaletteMode = ComponentFactory.Krypton.Toolkit.PaletteMode.Custom
        Me.KryptonLabel1.Size = New System.Drawing.Size(66, 23)
        Me.KryptonLabel1.StateNormal.ShortText.Font = New System.Drawing.Font("Consolas", 12.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.KryptonLabel1.TabIndex = 7
        Me.KryptonLabel1.Values.Text = "Volume"
        '
        'klblPctDone
        '
        Me.klblPctDone.Location = New System.Drawing.Point(246, 427)
        Me.klblPctDone.Name = "klblPctDone"
        Me.klblPctDone.Palette = Me.kp1
        Me.klblPctDone.PaletteMode = ComponentFactory.Krypton.Toolkit.PaletteMode.Custom
        Me.klblPctDone.Size = New System.Drawing.Size(30, 23)
        Me.klblPctDone.StateNormal.ShortText.Font = New System.Drawing.Font("Consolas", 12.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.klblPctDone.TabIndex = 6
        Me.klblPctDone.Values.Text = "0%"
        '
        'klblTime
        '
        Me.klblTime.Location = New System.Drawing.Point(200, 398)
        Me.klblTime.Name = "klblTime"
        Me.klblTime.Palette = Me.kp1
        Me.klblTime.PaletteMode = ComponentFactory.Krypton.Toolkit.PaletteMode.Custom
        Me.klblTime.Size = New System.Drawing.Size(130, 23)
        Me.klblTime.StateNormal.ShortText.Font = New System.Drawing.Font("Consolas", 12.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.klblTime.TabIndex = 5
        Me.klblTime.Values.Text = "00:00 / 00:00"
        '
        'klblStatus
        '
        Me.klblStatus.Location = New System.Drawing.Point(218, 451)
        Me.klblStatus.Name = "klblStatus"
        Me.klblStatus.Palette = Me.kp1
        Me.klblStatus.PaletteMode = ComponentFactory.Krypton.Toolkit.PaletteMode.Custom
        Me.klblStatus.Size = New System.Drawing.Size(102, 23)
        Me.klblStatus.StateNormal.ShortText.Font = New System.Drawing.Font("Consolas", 12.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.klblStatus.TabIndex = 4
        Me.klblStatus.Values.Text = "Waiting..."
        '
        'gtbPosition
        '
        Me.gtbPosition.AButColorA = System.Drawing.Color.CornflowerBlue
        Me.gtbPosition.AButColorB = System.Drawing.Color.Lavender
        Me.gtbPosition.AButColorBorder = System.Drawing.Color.SteelBlue
        Me.gtbPosition.ArrowColorDown = System.Drawing.Color.GhostWhite
        Me.gtbPosition.ArrowColorHover = System.Drawing.Color.DarkBlue
        Me.gtbPosition.ArrowColorUp = System.Drawing.Color.LightSteelBlue
        Me.gtbPosition.BackColor = System.Drawing.Color.Transparent
        Me.gtbPosition.BorderColor = System.Drawing.Color.Black
        Me.gtbPosition.BorderShow = False
        Me.gtbPosition.BrushDirection = System.Drawing.Drawing2D.LinearGradientMode.Horizontal
        Me.gtbPosition.BrushStyle = gTrackBar.gTrackBar.eBrushStyle.Path
        Me.gtbPosition.ChangeLarge = 10
        Me.gtbPosition.ChangeSmall = 1
        Me.gtbPosition.ColorDown = System.Drawing.Color.CornflowerBlue
        Me.gtbPosition.ColorDownBorder = System.Drawing.Color.DarkSlateBlue
        Me.gtbPosition.ColorDownHiLt = System.Drawing.Color.AliceBlue
        Me.gtbPosition.ColorHover = System.Drawing.Color.RoyalBlue
        Me.gtbPosition.ColorHoverBorder = System.Drawing.Color.Blue
        Me.gtbPosition.ColorHoverHiLt = System.Drawing.Color.White
        Me.gtbPosition.ColorUp = System.Drawing.Color.MediumBlue
        Me.gtbPosition.ColorUpBorder = System.Drawing.Color.DarkBlue
        Me.gtbPosition.ColorUpHiLt = System.Drawing.Color.AliceBlue
        Me.gtbPosition.FloatValue = True
        Me.gtbPosition.FloatValueFont = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Bold)
        Me.gtbPosition.FloatValueFontColor = System.Drawing.Color.MediumBlue
        Me.gtbPosition.Label = Nothing
        Me.gtbPosition.LabelAlighnment = System.Drawing.StringAlignment.Near
        Me.gtbPosition.LabelColor = System.Drawing.Color.MediumBlue
        Me.gtbPosition.LabelFont = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Bold)
        Me.gtbPosition.LabelPadding = New System.Windows.Forms.Padding(3)
        Me.gtbPosition.LabelShow = False
        Me.gtbPosition.Location = New System.Drawing.Point(0, 371)
        Me.gtbPosition.Margin = New System.Windows.Forms.Padding(2, 3, 2, 3)
        Me.gtbPosition.MaxValue = 50
        Me.gtbPosition.MinValue = 0
        Me.gtbPosition.Name = "gtbPosition"
        Me.gtbPosition.Orientation = System.Windows.Forms.Orientation.Horizontal
        Me.gtbPosition.ShowFocus = True
        Me.gtbPosition.Size = New System.Drawing.Size(530, 18)
        Me.gtbPosition.SliderCapEnd = System.Drawing.Drawing2D.LineCap.Round
        Me.gtbPosition.SliderCapStart = System.Drawing.Drawing2D.LineCap.Round
        Me.gtbPosition.SliderColorHigh = System.Drawing.Color.Lime
        Me.gtbPosition.SliderColorLow = System.Drawing.Color.Black
        Me.gtbPosition.SliderFocalPt = CType(resources.GetObject("gtbPosition.SliderFocalPt"), System.Drawing.PointF)
        Me.gtbPosition.SliderHighlightPt = CType(resources.GetObject("gtbPosition.SliderHighlightPt"), System.Drawing.PointF)
        Me.gtbPosition.SliderImage = Nothing
        Me.gtbPosition.SliderShape = gTrackBar.gTrackBar.eShape.Ellipse
        Me.gtbPosition.SliderSize = New System.Drawing.Size(10, 10)
        Me.gtbPosition.SliderWidthHigh = 2
        Me.gtbPosition.SliderWidthLow = 1
        Me.gtbPosition.TabIndex = 3
        Me.gtbPosition.TickColor = System.Drawing.Color.DarkGray
        Me.gtbPosition.TickInterval = 10
        Me.gtbPosition.TickType = gTrackBar.gTrackBar.eTickType.None
        Me.gtbPosition.TickWidth = 5
        Me.gtbPosition.UpDownAutoWidth = False
        Me.gtbPosition.UpDownShow = False
        Me.gtbPosition.UpDownWidth = 30
        Me.gtbPosition.Value = 0
        Me.gtbPosition.ValueBox = gTrackBar.gTrackBar.eValueBox.None
        Me.gtbPosition.ValueBoxBackColor = System.Drawing.Color.White
        Me.gtbPosition.ValueBoxBorder = System.Drawing.Color.MediumBlue
        Me.gtbPosition.ValueBoxFont = New System.Drawing.Font("Arial", 8.25!)
        Me.gtbPosition.ValueBoxFontColor = System.Drawing.Color.MediumBlue
        Me.gtbPosition.ValueBoxShape = gTrackBar.gTrackBar.eShape.Rectangle
        Me.gtbPosition.ValueBoxSize = New System.Drawing.Size(30, 20)
        '
        'klstPlaylist
        '
        Me.klstPlaylist.Location = New System.Drawing.Point(291, 51)
        Me.klstPlaylist.Name = "klstPlaylist"
        Me.klstPlaylist.Palette = Me.kp1
        Me.klstPlaylist.PaletteMode = ComponentFactory.Krypton.Toolkit.PaletteMode.Custom
        Me.klstPlaylist.Size = New System.Drawing.Size(233, 307)
        Me.klstPlaylist.TabIndex = 2
        '
        'klstSongs
        '
        Me.klstSongs.Location = New System.Drawing.Point(7, 51)
        Me.klstSongs.Name = "klstSongs"
        Me.klstSongs.Palette = Me.kp1
        Me.klstSongs.PaletteMode = ComponentFactory.Krypton.Toolkit.PaletteMode.Custom
        Me.klstSongs.Size = New System.Drawing.Size(233, 307)
        Me.klstSongs.StateNormal.Back.Color1 = System.Drawing.Color.Fuchsia
        Me.klstSongs.StateNormal.Border.Color1 = System.Drawing.Color.Lime
        Me.klstSongs.StateNormal.Border.DrawBorders = CType((((ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Top Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Bottom) _
                    Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Left) _
                    Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Right), ComponentFactory.Krypton.Toolkit.PaletteDrawBorders)
        Me.klstSongs.StateNormal.Item.Back.Color1 = System.Drawing.Color.Purple
        Me.klstSongs.StateNormal.Item.Back.ColorStyle = ComponentFactory.Krypton.Toolkit.PaletteColorStyle.SolidAllLine
        Me.klstSongs.StateNormal.Item.Border.Color1 = System.Drawing.Color.Lime
        Me.klstSongs.StateNormal.Item.Border.DrawBorders = CType((((ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Top Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Bottom) _
                    Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Left) _
                    Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Right), ComponentFactory.Krypton.Toolkit.PaletteDrawBorders)
        Me.klstSongs.StatePressed.Item.Back.Color1 = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
        Me.klstSongs.StatePressed.Item.Border.Color1 = System.Drawing.Color.Lime
        Me.klstSongs.StatePressed.Item.Border.DrawBorders = CType((((ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Top Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Bottom) _
                    Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Left) _
                    Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Right), ComponentFactory.Krypton.Toolkit.PaletteDrawBorders)
        Me.klstSongs.StateTracking.Item.Back.Color1 = System.Drawing.Color.Purple
        Me.klstSongs.StateTracking.Item.Border.Color1 = System.Drawing.Color.Lime
        Me.klstSongs.StateTracking.Item.Border.DrawBorders = CType((((ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Top Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Bottom) _
                    Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Left) _
                    Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Right), ComponentFactory.Krypton.Toolkit.PaletteDrawBorders)
        Me.klstSongs.TabIndex = 1
        '
        'KryptPlayerPanel
        '
        Me.KryptPlayerPanel.Controls.Add(Me.kbtnAbout)
        Me.KryptPlayerPanel.Controls.Add(Me.kbtnNext)
        Me.KryptPlayerPanel.Controls.Add(Me.kbtnPrevious)
        Me.KryptPlayerPanel.Controls.Add(Me.kbtnShuffle)
        Me.KryptPlayerPanel.Controls.Add(Me.kbtnLoadAllPlayLists)
        Me.KryptPlayerPanel.Controls.Add(Me.kbtnCreataPlaylist)
        Me.KryptPlayerPanel.Controls.Add(Me.kbtnStop)
        Me.KryptPlayerPanel.Controls.Add(Me.kbtnPause)
        Me.KryptPlayerPanel.Controls.Add(Me.kbtnPlay)
        Me.KryptPlayerPanel.Controls.Add(Me.kbtnOpen)
        Me.KryptPlayerPanel.Location = New System.Drawing.Point(0, 0)
        Me.KryptPlayerPanel.Margin = New System.Windows.Forms.Padding(0)
        Me.KryptPlayerPanel.Name = "KryptPlayerPanel"
        Me.KryptPlayerPanel.Palette = Me.kp1
        Me.KryptPlayerPanel.PaletteMode = ComponentFactory.Krypton.Toolkit.PaletteMode.Custom
        Me.KryptPlayerPanel.Size = New System.Drawing.Size(529, 48)
        Me.KryptPlayerPanel.TabIndex = 0
        '
        'kbtnAbout
        '
        Me.kbtnAbout.Location = New System.Drawing.Point(480, 6)
        Me.kbtnAbout.Margin = New System.Windows.Forms.Padding(4, 6, 0, 6)
        Me.kbtnAbout.Name = "kbtnAbout"
        Me.kbtnAbout.Palette = Me.kp1
        Me.kbtnAbout.PaletteMode = ComponentFactory.Krypton.Toolkit.PaletteMode.Custom
        Me.kbtnAbout.Size = New System.Drawing.Size(36, 36)
        Me.kbtnAbout.StateCommon.Back.ImageStyle = ComponentFactory.Krypton.Toolkit.PaletteImageStyle.Stretch
        Me.kbtnAbout.StateNormal.Back.Image = Global.rspPlayer.My.Resources.Resources.info
        Me.kbtnAbout.StateNormal.Back.ImageStyle = ComponentFactory.Krypton.Toolkit.PaletteImageStyle.CenterMiddle
        Me.kbtnAbout.StatePressed.Back.Color1 = System.Drawing.Color.Orange
        Me.kbtnAbout.StatePressed.Back.Color2 = System.Drawing.Color.Black
        Me.kbtnAbout.StatePressed.Back.Image = Global.rspPlayer.My.Resources.Resources.info
        Me.kbtnAbout.StatePressed.Back.ImageStyle = ComponentFactory.Krypton.Toolkit.PaletteImageStyle.CenterMiddle
        Me.kbtnAbout.StatePressed.Border.Color1 = System.Drawing.Color.Purple
        Me.kbtnAbout.StatePressed.Border.DrawBorders = CType((((ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Top Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Bottom) _
                    Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Left) _
                    Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Right), ComponentFactory.Krypton.Toolkit.PaletteDrawBorders)
        Me.kbtnAbout.StateTracking.Back.Image = Global.rspPlayer.My.Resources.Resources.info
        Me.kbtnAbout.StateTracking.Back.ImageStyle = ComponentFactory.Krypton.Toolkit.PaletteImageStyle.CenterMiddle
        Me.kbtnAbout.StateTracking.Border.Color1 = System.Drawing.Color.Lime
        Me.kbtnAbout.StateTracking.Border.DrawBorders = CType((((ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Top Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Bottom) _
                    Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Left) _
                    Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Right), ComponentFactory.Krypton.Toolkit.PaletteDrawBorders)
        Me.kbtnAbout.TabIndex = 12
        Me.tt.SetToolTip(Me.kbtnAbout, "About Information")
        Me.kbtnAbout.Values.Text = ""
        '
        'kbtnNext
        '
        Me.kbtnNext.Location = New System.Drawing.Point(440, 6)
        Me.kbtnNext.Margin = New System.Windows.Forms.Padding(4, 6, 0, 6)
        Me.kbtnNext.Name = "kbtnNext"
        Me.kbtnNext.Palette = Me.kp1
        Me.kbtnNext.PaletteMode = ComponentFactory.Krypton.Toolkit.PaletteMode.Custom
        Me.kbtnNext.Size = New System.Drawing.Size(36, 36)
        Me.kbtnNext.StateNormal.Back.Image = Global.rspPlayer.My.Resources.Resources._next
        Me.kbtnNext.StateNormal.Back.ImageStyle = ComponentFactory.Krypton.Toolkit.PaletteImageStyle.CenterMiddle
        Me.kbtnNext.StatePressed.Back.Color1 = System.Drawing.Color.Orange
        Me.kbtnNext.StatePressed.Back.Color2 = System.Drawing.Color.Black
        Me.kbtnNext.StatePressed.Back.Image = Global.rspPlayer.My.Resources.Resources._next
        Me.kbtnNext.StatePressed.Back.ImageStyle = ComponentFactory.Krypton.Toolkit.PaletteImageStyle.CenterMiddle
        Me.kbtnNext.StatePressed.Border.Color1 = System.Drawing.Color.Purple
        Me.kbtnNext.StatePressed.Border.DrawBorders = CType((((ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Top Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Bottom) _
                    Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Left) _
                    Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Right), ComponentFactory.Krypton.Toolkit.PaletteDrawBorders)
        Me.kbtnNext.StateTracking.Back.Image = Global.rspPlayer.My.Resources.Resources._next
        Me.kbtnNext.StateTracking.Back.ImageStyle = ComponentFactory.Krypton.Toolkit.PaletteImageStyle.CenterMiddle
        Me.kbtnNext.StateTracking.Border.Color1 = System.Drawing.Color.Lime
        Me.kbtnNext.StateTracking.Border.DrawBorders = CType((((ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Top Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Bottom) _
                    Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Left) _
                    Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Right), ComponentFactory.Krypton.Toolkit.PaletteDrawBorders)
        Me.kbtnNext.TabIndex = 8
        Me.tt.SetToolTip(Me.kbtnNext, "Moves to the Next song!")
        Me.kbtnNext.Values.Text = ""
        '
        'kbtnPrevious
        '
        Me.kbtnPrevious.Location = New System.Drawing.Point(400, 6)
        Me.kbtnPrevious.Margin = New System.Windows.Forms.Padding(4, 6, 0, 6)
        Me.kbtnPrevious.Name = "kbtnPrevious"
        Me.kbtnPrevious.Palette = Me.kp1
        Me.kbtnPrevious.PaletteMode = ComponentFactory.Krypton.Toolkit.PaletteMode.Custom
        Me.kbtnPrevious.Size = New System.Drawing.Size(36, 36)
        Me.kbtnPrevious.StateNormal.Back.Image = Global.rspPlayer.My.Resources.Resources.previous
        Me.kbtnPrevious.StateNormal.Back.ImageStyle = ComponentFactory.Krypton.Toolkit.PaletteImageStyle.CenterMiddle
        Me.kbtnPrevious.StatePressed.Back.Color1 = System.Drawing.Color.Orange
        Me.kbtnPrevious.StatePressed.Back.Color2 = System.Drawing.Color.Black
        Me.kbtnPrevious.StatePressed.Back.Image = Global.rspPlayer.My.Resources.Resources.previous
        Me.kbtnPrevious.StatePressed.Back.ImageStyle = ComponentFactory.Krypton.Toolkit.PaletteImageStyle.CenterMiddle
        Me.kbtnPrevious.StatePressed.Border.Color1 = System.Drawing.Color.Purple
        Me.kbtnPrevious.StatePressed.Border.DrawBorders = CType((((ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Top Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Bottom) _
                    Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Left) _
                    Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Right), ComponentFactory.Krypton.Toolkit.PaletteDrawBorders)
        Me.kbtnPrevious.StateTracking.Back.Image = Global.rspPlayer.My.Resources.Resources.previous
        Me.kbtnPrevious.StateTracking.Back.ImageStyle = ComponentFactory.Krypton.Toolkit.PaletteImageStyle.CenterMiddle
        Me.kbtnPrevious.StateTracking.Border.Color1 = System.Drawing.Color.Lime
        Me.kbtnPrevious.StateTracking.Border.DrawBorders = CType((((ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Top Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Bottom) _
                    Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Left) _
                    Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Right), ComponentFactory.Krypton.Toolkit.PaletteDrawBorders)
        Me.kbtnPrevious.TabIndex = 7
        Me.tt.SetToolTip(Me.kbtnPrevious, "Moves Back one song!")
        Me.kbtnPrevious.Values.Text = ""
        '
        'kbtnShuffle
        '
        Me.kbtnShuffle.Location = New System.Drawing.Point(360, 6)
        Me.kbtnShuffle.Margin = New System.Windows.Forms.Padding(4, 6, 0, 6)
        Me.kbtnShuffle.Name = "kbtnShuffle"
        Me.kbtnShuffle.Palette = Me.kp1
        Me.kbtnShuffle.PaletteMode = ComponentFactory.Krypton.Toolkit.PaletteMode.Custom
        Me.kbtnShuffle.Size = New System.Drawing.Size(36, 36)
        Me.kbtnShuffle.StateNormal.Back.Image = Global.rspPlayer.My.Resources.Resources.Knob_Shuffle_On
        Me.kbtnShuffle.StateNormal.Back.ImageStyle = ComponentFactory.Krypton.Toolkit.PaletteImageStyle.CenterMiddle
        Me.kbtnShuffle.StatePressed.Back.Color1 = System.Drawing.Color.Orange
        Me.kbtnShuffle.StatePressed.Back.Color2 = System.Drawing.Color.Black
        Me.kbtnShuffle.StatePressed.Back.Image = Global.rspPlayer.My.Resources.Resources.Knob_Shuffle_On
        Me.kbtnShuffle.StatePressed.Back.ImageStyle = ComponentFactory.Krypton.Toolkit.PaletteImageStyle.CenterMiddle
        Me.kbtnShuffle.StatePressed.Border.Color1 = System.Drawing.Color.Purple
        Me.kbtnShuffle.StatePressed.Border.DrawBorders = CType((((ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Top Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Bottom) _
                    Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Left) _
                    Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Right), ComponentFactory.Krypton.Toolkit.PaletteDrawBorders)
        Me.kbtnShuffle.StateTracking.Back.Image = Global.rspPlayer.My.Resources.Resources.Knob_Shuffle_On
        Me.kbtnShuffle.StateTracking.Back.ImageStyle = ComponentFactory.Krypton.Toolkit.PaletteImageStyle.CenterMiddle
        Me.kbtnShuffle.StateTracking.Border.Color1 = System.Drawing.Color.Lime
        Me.kbtnShuffle.StateTracking.Border.DrawBorders = CType((((ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Top Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Bottom) _
                    Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Left) _
                    Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Right), ComponentFactory.Krypton.Toolkit.PaletteDrawBorders)
        Me.kbtnShuffle.TabIndex = 6
        Me.tt.SetToolTip(Me.kbtnShuffle, "Shuffles your MP3's." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "NOTE: Shuffle before" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "playing.")
        Me.kbtnShuffle.Values.Text = ""
        '
        'kbtnLoadAllPlayLists
        '
        Me.kbtnLoadAllPlayLists.Location = New System.Drawing.Point(266, 6)
        Me.kbtnLoadAllPlayLists.Margin = New System.Windows.Forms.Padding(4, 6, 0, 6)
        Me.kbtnLoadAllPlayLists.Name = "kbtnLoadAllPlayLists"
        Me.kbtnLoadAllPlayLists.Palette = Me.kp1
        Me.kbtnLoadAllPlayLists.PaletteMode = ComponentFactory.Krypton.Toolkit.PaletteMode.Custom
        Me.kbtnLoadAllPlayLists.Size = New System.Drawing.Size(36, 36)
        Me.kbtnLoadAllPlayLists.StateNormal.Back.Image = Global.rspPlayer.My.Resources.Resources.Menu
        Me.kbtnLoadAllPlayLists.StateNormal.Back.ImageStyle = ComponentFactory.Krypton.Toolkit.PaletteImageStyle.CenterMiddle
        Me.kbtnLoadAllPlayLists.StatePressed.Back.Color1 = System.Drawing.Color.Orange
        Me.kbtnLoadAllPlayLists.StatePressed.Back.Color2 = System.Drawing.Color.Black
        Me.kbtnLoadAllPlayLists.StatePressed.Back.Image = Global.rspPlayer.My.Resources.Resources.Menu
        Me.kbtnLoadAllPlayLists.StatePressed.Back.ImageStyle = ComponentFactory.Krypton.Toolkit.PaletteImageStyle.CenterMiddle
        Me.kbtnLoadAllPlayLists.StatePressed.Border.Color1 = System.Drawing.Color.Purple
        Me.kbtnLoadAllPlayLists.StatePressed.Border.DrawBorders = CType((((ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Top Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Bottom) _
                    Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Left) _
                    Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Right), ComponentFactory.Krypton.Toolkit.PaletteDrawBorders)
        Me.kbtnLoadAllPlayLists.StateTracking.Back.Image = Global.rspPlayer.My.Resources.Resources.Menu
        Me.kbtnLoadAllPlayLists.StateTracking.Back.ImageStyle = ComponentFactory.Krypton.Toolkit.PaletteImageStyle.CenterMiddle
        Me.kbtnLoadAllPlayLists.StateTracking.Border.Color1 = System.Drawing.Color.Lime
        Me.kbtnLoadAllPlayLists.StateTracking.Border.DrawBorders = CType((((ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Top Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Bottom) _
                    Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Left) _
                    Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Right), ComponentFactory.Krypton.Toolkit.PaletteDrawBorders)
        Me.kbtnLoadAllPlayLists.TabIndex = 5
        Me.tt.SetToolTip(Me.kbtnLoadAllPlayLists, "Load All Playlists")
        Me.kbtnLoadAllPlayLists.Values.Text = ""
        '
        'kbtnCreataPlaylist
        '
        Me.kbtnCreataPlaylist.Location = New System.Drawing.Point(226, 6)
        Me.kbtnCreataPlaylist.Margin = New System.Windows.Forms.Padding(4, 6, 0, 6)
        Me.kbtnCreataPlaylist.Name = "kbtnCreataPlaylist"
        Me.kbtnCreataPlaylist.Palette = Me.kp1
        Me.kbtnCreataPlaylist.PaletteMode = ComponentFactory.Krypton.Toolkit.PaletteMode.Custom
        Me.kbtnCreataPlaylist.Size = New System.Drawing.Size(36, 36)
        Me.kbtnCreataPlaylist.StateNormal.Back.Image = Global.rspPlayer.My.Resources.Resources.playlist
        Me.kbtnCreataPlaylist.StateNormal.Back.ImageStyle = ComponentFactory.Krypton.Toolkit.PaletteImageStyle.CenterMiddle
        Me.kbtnCreataPlaylist.StatePressed.Back.Color1 = System.Drawing.Color.Orange
        Me.kbtnCreataPlaylist.StatePressed.Back.Color2 = System.Drawing.Color.Black
        Me.kbtnCreataPlaylist.StatePressed.Back.Image = Global.rspPlayer.My.Resources.Resources.playlist
        Me.kbtnCreataPlaylist.StatePressed.Back.ImageStyle = ComponentFactory.Krypton.Toolkit.PaletteImageStyle.CenterMiddle
        Me.kbtnCreataPlaylist.StatePressed.Border.Color1 = System.Drawing.Color.Purple
        Me.kbtnCreataPlaylist.StatePressed.Border.DrawBorders = CType((((ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Top Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Bottom) _
                    Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Left) _
                    Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Right), ComponentFactory.Krypton.Toolkit.PaletteDrawBorders)
        Me.kbtnCreataPlaylist.StateTracking.Back.Image = Global.rspPlayer.My.Resources.Resources.playlist
        Me.kbtnCreataPlaylist.StateTracking.Back.ImageStyle = ComponentFactory.Krypton.Toolkit.PaletteImageStyle.CenterMiddle
        Me.kbtnCreataPlaylist.StateTracking.Border.Color1 = System.Drawing.Color.Lime
        Me.kbtnCreataPlaylist.StateTracking.Border.DrawBorders = CType((((ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Top Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Bottom) _
                    Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Left) _
                    Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Right), ComponentFactory.Krypton.Toolkit.PaletteDrawBorders)
        Me.kbtnCreataPlaylist.TabIndex = 4
        Me.tt.SetToolTip(Me.kbtnCreataPlaylist, "Create a Playlist")
        Me.kbtnCreataPlaylist.Values.Text = ""
        '
        'kbtnStop
        '
        Me.kbtnStop.Location = New System.Drawing.Point(150, 6)
        Me.kbtnStop.Margin = New System.Windows.Forms.Padding(4, 6, 0, 6)
        Me.kbtnStop.Name = "kbtnStop"
        Me.kbtnStop.Palette = Me.kp1
        Me.kbtnStop.PaletteMode = ComponentFactory.Krypton.Toolkit.PaletteMode.Custom
        Me.kbtnStop.Size = New System.Drawing.Size(36, 36)
        Me.kbtnStop.StateNormal.Back.Image = Global.rspPlayer.My.Resources.Resources.player_stop
        Me.kbtnStop.StateNormal.Back.ImageStyle = ComponentFactory.Krypton.Toolkit.PaletteImageStyle.CenterMiddle
        Me.kbtnStop.StatePressed.Back.Color1 = System.Drawing.Color.Orange
        Me.kbtnStop.StatePressed.Back.Color2 = System.Drawing.Color.Black
        Me.kbtnStop.StatePressed.Back.Image = Global.rspPlayer.My.Resources.Resources.player_stop
        Me.kbtnStop.StatePressed.Back.ImageStyle = ComponentFactory.Krypton.Toolkit.PaletteImageStyle.CenterMiddle
        Me.kbtnStop.StatePressed.Border.Color1 = System.Drawing.Color.Purple
        Me.kbtnStop.StatePressed.Border.DrawBorders = CType((((ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Top Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Bottom) _
                    Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Left) _
                    Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Right), ComponentFactory.Krypton.Toolkit.PaletteDrawBorders)
        Me.kbtnStop.StateTracking.Back.Image = Global.rspPlayer.My.Resources.Resources.player_stop
        Me.kbtnStop.StateTracking.Back.ImageStyle = ComponentFactory.Krypton.Toolkit.PaletteImageStyle.CenterMiddle
        Me.kbtnStop.StateTracking.Border.Color1 = System.Drawing.Color.Lime
        Me.kbtnStop.StateTracking.Border.DrawBorders = CType((((ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Top Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Bottom) _
                    Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Left) _
                    Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Right), ComponentFactory.Krypton.Toolkit.PaletteDrawBorders)
        Me.kbtnStop.TabIndex = 3
        Me.tt.SetToolTip(Me.kbtnStop, "Stop")
        Me.kbtnStop.Values.Text = ""
        '
        'kbtnPause
        '
        Me.kbtnPause.Location = New System.Drawing.Point(110, 6)
        Me.kbtnPause.Margin = New System.Windows.Forms.Padding(4, 6, 0, 6)
        Me.kbtnPause.Name = "kbtnPause"
        Me.kbtnPause.Palette = Me.kp1
        Me.kbtnPause.PaletteMode = ComponentFactory.Krypton.Toolkit.PaletteMode.Custom
        Me.kbtnPause.Size = New System.Drawing.Size(36, 36)
        Me.kbtnPause.StateNormal.Back.Image = Global.rspPlayer.My.Resources.Resources.player_pause
        Me.kbtnPause.StateNormal.Back.ImageStyle = ComponentFactory.Krypton.Toolkit.PaletteImageStyle.CenterMiddle
        Me.kbtnPause.StatePressed.Back.Color1 = System.Drawing.Color.Orange
        Me.kbtnPause.StatePressed.Back.Color2 = System.Drawing.Color.Black
        Me.kbtnPause.StatePressed.Back.Image = Global.rspPlayer.My.Resources.Resources.player_pause
        Me.kbtnPause.StatePressed.Back.ImageStyle = ComponentFactory.Krypton.Toolkit.PaletteImageStyle.CenterMiddle
        Me.kbtnPause.StatePressed.Border.Color1 = System.Drawing.Color.Purple
        Me.kbtnPause.StatePressed.Border.DrawBorders = CType((((ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Top Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Bottom) _
                    Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Left) _
                    Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Right), ComponentFactory.Krypton.Toolkit.PaletteDrawBorders)
        Me.kbtnPause.StateTracking.Back.Image = Global.rspPlayer.My.Resources.Resources.player_pause
        Me.kbtnPause.StateTracking.Back.ImageStyle = ComponentFactory.Krypton.Toolkit.PaletteImageStyle.CenterMiddle
        Me.kbtnPause.StateTracking.Border.Color1 = System.Drawing.Color.Lime
        Me.kbtnPause.StateTracking.Border.DrawBorders = CType((((ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Top Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Bottom) _
                    Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Left) _
                    Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Right), ComponentFactory.Krypton.Toolkit.PaletteDrawBorders)
        Me.kbtnPause.TabIndex = 2
        Me.tt.SetToolTip(Me.kbtnPause, "Pause")
        Me.kbtnPause.Values.Text = ""
        '
        'kbtnPlay
        '
        Me.kbtnPlay.Location = New System.Drawing.Point(70, 6)
        Me.kbtnPlay.Margin = New System.Windows.Forms.Padding(4, 6, 0, 6)
        Me.kbtnPlay.Name = "kbtnPlay"
        Me.kbtnPlay.Palette = Me.kp1
        Me.kbtnPlay.PaletteMode = ComponentFactory.Krypton.Toolkit.PaletteMode.Custom
        Me.kbtnPlay.Size = New System.Drawing.Size(36, 36)
        Me.kbtnPlay.StateNormal.Back.Image = Global.rspPlayer.My.Resources.Resources.player_play
        Me.kbtnPlay.StateNormal.Back.ImageStyle = ComponentFactory.Krypton.Toolkit.PaletteImageStyle.CenterMiddle
        Me.kbtnPlay.StatePressed.Back.Color1 = System.Drawing.Color.Orange
        Me.kbtnPlay.StatePressed.Back.Color2 = System.Drawing.Color.Black
        Me.kbtnPlay.StatePressed.Back.Image = Global.rspPlayer.My.Resources.Resources.player_play
        Me.kbtnPlay.StatePressed.Back.ImageStyle = ComponentFactory.Krypton.Toolkit.PaletteImageStyle.CenterMiddle
        Me.kbtnPlay.StatePressed.Border.Color1 = System.Drawing.Color.Purple
        Me.kbtnPlay.StatePressed.Border.DrawBorders = CType((((ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Top Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Bottom) _
                    Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Left) _
                    Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Right), ComponentFactory.Krypton.Toolkit.PaletteDrawBorders)
        Me.kbtnPlay.StateTracking.Back.Image = Global.rspPlayer.My.Resources.Resources.player_play
        Me.kbtnPlay.StateTracking.Back.ImageStyle = ComponentFactory.Krypton.Toolkit.PaletteImageStyle.CenterMiddle
        Me.kbtnPlay.StateTracking.Border.Color1 = System.Drawing.Color.Lime
        Me.kbtnPlay.StateTracking.Border.DrawBorders = CType((((ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Top Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Bottom) _
                    Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Left) _
                    Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Right), ComponentFactory.Krypton.Toolkit.PaletteDrawBorders)
        Me.kbtnPlay.TabIndex = 1
        Me.tt.SetToolTip(Me.kbtnPlay, "Play")
        Me.kbtnPlay.Values.Text = ""
        '
        'kbtnOpen
        '
        Me.kbtnOpen.Location = New System.Drawing.Point(6, 6)
        Me.kbtnOpen.Margin = New System.Windows.Forms.Padding(4, 6, 0, 6)
        Me.kbtnOpen.Name = "kbtnOpen"
        Me.kbtnOpen.Palette = Me.kp1
        Me.kbtnOpen.PaletteMode = ComponentFactory.Krypton.Toolkit.PaletteMode.Custom
        Me.kbtnOpen.Size = New System.Drawing.Size(36, 36)
        Me.kbtnOpen.StateNormal.Back.Image = Global.rspPlayer.My.Resources.Resources.fileopen
        Me.kbtnOpen.StateNormal.Back.ImageStyle = ComponentFactory.Krypton.Toolkit.PaletteImageStyle.CenterMiddle
        Me.kbtnOpen.StatePressed.Back.Color1 = System.Drawing.Color.Orange
        Me.kbtnOpen.StatePressed.Back.Color2 = System.Drawing.Color.Black
        Me.kbtnOpen.StatePressed.Back.Image = Global.rspPlayer.My.Resources.Resources.fileopen
        Me.kbtnOpen.StatePressed.Back.ImageStyle = ComponentFactory.Krypton.Toolkit.PaletteImageStyle.CenterMiddle
        Me.kbtnOpen.StatePressed.Border.Color1 = System.Drawing.Color.Purple
        Me.kbtnOpen.StatePressed.Border.DrawBorders = CType((((ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Top Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Bottom) _
                    Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Left) _
                    Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Right), ComponentFactory.Krypton.Toolkit.PaletteDrawBorders)
        Me.kbtnOpen.StateTracking.Back.Image = Global.rspPlayer.My.Resources.Resources.fileopen
        Me.kbtnOpen.StateTracking.Back.ImageStyle = ComponentFactory.Krypton.Toolkit.PaletteImageStyle.CenterMiddle
        Me.kbtnOpen.StateTracking.Border.Color1 = System.Drawing.Color.Lime
        Me.kbtnOpen.StateTracking.Border.DrawBorders = CType((((ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Top Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Bottom) _
                    Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Left) _
                    Or ComponentFactory.Krypton.Toolkit.PaletteDrawBorders.Right), ComponentFactory.Krypton.Toolkit.PaletteDrawBorders)
        Me.kbtnOpen.TabIndex = 0
        Me.tt.SetToolTip(Me.kbtnOpen, "Open Audio Files!")
        Me.kbtnOpen.Values.Text = ""
        '
        'KryptMan
        '
        Me.KryptMan.GlobalPalette = Me.kp1
        Me.KryptMan.GlobalPaletteMode = ComponentFactory.Krypton.Toolkit.PaletteModeManager.Custom
        '
        'ofd
        '
        Me.ofd.Multiselect = True
        Me.ofd.RestoreDirectory = True
        Me.ofd.Title = "MP3's  and Others"
        '
        'sfd
        '
        Me.sfd.Title = "Save Playlist"
        '
        'audioTimer
        '
        Me.audioTimer.Interval = 1000
        '
        'tt
        '
        Me.tt.BackColor = System.Drawing.Color.DimGray
        Me.tt.ForeColor = System.Drawing.Color.Fuchsia
        Me.tt.IsBalloon = True
        '
        'frmPlayer
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.ClientSize = New System.Drawing.Size(530, 486)
        Me.Controls.Add(Me.KryptonPanel)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
        Me.GroupBackStyle = ComponentFactory.Krypton.Toolkit.PaletteBackStyle.HeaderForm
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.MaximizeBox = False
        Me.MinimizeBox = False
        Me.Name = "frmPlayer"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "MP3 Player"
        CType(Me.KryptonPanel, System.ComponentModel.ISupportInitialize).EndInit()
        Me.KryptonPanel.ResumeLayout(False)
        Me.KryptonPanel.PerformLayout()
        CType(Me.KryptonPanel1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.KryptonPanel1.ResumeLayout(False)
        Me.KryptonPanel1.PerformLayout()
        CType(Me.KryptPlayerPanel, System.ComponentModel.ISupportInitialize).EndInit()
        Me.KryptPlayerPanel.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub
    Friend WithEvents KryptonPanel As ComponentFactory.Krypton.Toolkit.KryptonPanel
    Friend WithEvents KryptMan As ComponentFactory.Krypton.Toolkit.KryptonManager

    Public Sub New()

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

        ' Add any initialization after the InitializeComponent() call.

    End Sub

    Protected Overrides Sub Finalize()
        MyBase.Finalize()
    End Sub
    Friend WithEvents kp1 As ComponentFactory.Krypton.Toolkit.KryptonPalette
    Friend WithEvents KryptPlayerPanel As ComponentFactory.Krypton.Toolkit.KryptonPanel
    Friend WithEvents kbtnOpen As ComponentFactory.Krypton.Toolkit.KryptonButton
    Friend WithEvents kbtnShuffle As ComponentFactory.Krypton.Toolkit.KryptonButton
    Friend WithEvents kbtnLoadAllPlayLists As ComponentFactory.Krypton.Toolkit.KryptonButton
    Friend WithEvents kbtnCreataPlaylist As ComponentFactory.Krypton.Toolkit.KryptonButton
    Friend WithEvents kbtnStop As ComponentFactory.Krypton.Toolkit.KryptonButton
    Friend WithEvents kbtnPause As ComponentFactory.Krypton.Toolkit.KryptonButton
    Friend WithEvents kbtnPlay As ComponentFactory.Krypton.Toolkit.KryptonButton
    Friend WithEvents kbtnNext As ComponentFactory.Krypton.Toolkit.KryptonButton
    Friend WithEvents kbtnPrevious As ComponentFactory.Krypton.Toolkit.KryptonButton
    Friend WithEvents klstSongs As ComponentFactory.Krypton.Toolkit.KryptonListBox
    Friend WithEvents ofd As System.Windows.Forms.OpenFileDialog
    Friend WithEvents sfd As System.Windows.Forms.SaveFileDialog
    Friend WithEvents audioTimer As System.Windows.Forms.Timer
    Friend WithEvents klstPlaylist As ComponentFactory.Krypton.Toolkit.KryptonListBox
    Friend WithEvents gtbPosition As gTrackBar.gTrackBar
    Friend WithEvents tt As System.Windows.Forms.ToolTip
    Friend WithEvents klblStatus As ComponentFactory.Krypton.Toolkit.KryptonLabel
    Friend WithEvents klblPctDone As ComponentFactory.Krypton.Toolkit.KryptonLabel
    Friend WithEvents klblTime As ComponentFactory.Krypton.Toolkit.KryptonLabel
    Friend WithEvents gtbVolume As gTrackBar.gTrackBar
    Friend WithEvents KryptonLabel1 As ComponentFactory.Krypton.Toolkit.KryptonLabel
    Friend WithEvents KryptonPanel1 As ComponentFactory.Krypton.Toolkit.KryptonPanel
    Friend WithEvents krbSequential As ComponentFactory.Krypton.Toolkit.KryptonRadioButton
    Friend WithEvents krbRandom As ComponentFactory.Krypton.Toolkit.KryptonRadioButton
    Friend WithEvents krbRepeat As ComponentFactory.Krypton.Toolkit.KryptonRadioButton
    Friend WithEvents kbtnClearListBoxes As ComponentFactory.Krypton.Toolkit.KryptonButton
    Friend WithEvents kbtnTagInfo As ComponentFactory.Krypton.Toolkit.KryptonButton
    Friend WithEvents kbtnAbout As ComponentFactory.Krypton.Toolkit.KryptonButton
End Class

By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.

If a file you wish to view isn't highlighted, and is a text file (not binary), please let us know and we'll add colourisation support for it.

License

This article, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Share

About the Author

rspercy65
Retired
United States United States
I am currently retired.
I have no degree but I have some programming experience
when I was in college(Cobol, Pascal).

My accomplishments thus far are;
Best VB.Net article for January(2009)
Best VB.Net article for July(2009)

| Advertise | Privacy | Terms of Use | Mobile
Web03 | 2.8.150428.2 | Last Updated 24 Apr 2013
Article Copyright 2009 by rspercy65
Everything else Copyright © CodeProject, 1999-2015
Layout: fixed | fluid