Click here to Skip to main content
15,860,861 members
Articles / Programming Languages / Visual Basic

Play your AVI files with this DirectX video player

Rate me:
Please Sign up or sign in to vote.
4.83/5 (12 votes)
24 Apr 2013CPOL4 min read 129.4K   8K   60  
Plays AVI files using Microsoft's DirectX.AudioVideoPlayback.
<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)


Written By
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)

Comments and Discussions