---

  Private Sub GetREG(ByRef profile As String)
      'If Registry.GetValue(rootB + "\" + profile, "", Nothing) <> Nothing Then

      'clear the ListView box
      ListView1.Items.Clear()

      'rebuild the ListView box
      MessageBox.Show("Profile in argument: " + profile) '===OK.

      Dim RegKey As RegistryKey = Registry.CurrentUser.OpenSubKey("SOFTWARE\My Sorter\" + profile)
      For Each Subkey As String In RegKey.GetSubKeyNames()
        'For Each Subkey In Subkeys
        Dim tempkey As RegistryKey = RegKey.OpenSubKey(Subkey)
        MessageBox.Show("subkey name: ", Subkey)
        'ListView1.Items.Add(Subkey, Registry.GetValue(rootB + "\" + profile, Subkey, ""))

        Dim listItem As New ListViewItem(tempkey.ToString)
        listItem.SubItems.Add(Registry.GetValue(rootB + "\" + profile, tempkey.ToString, ""))
        ListView1.Items.Add(listItem)

      Next
      RegKey.Close()

      'Else
      'MessageBox.Show("No GetValue: " + profile)
      'End If

  End Sub

---

---

Try
    'My.Computer.Audio.Play("e:\MyStuff\TestTone.wav", AudioPlayMode.WaitToComplete)
    My.Computer.Audio.Play(A, AudioPlayMode.WaitToComplete)
Catch ex As Exception
    Stop
End Try

---

---

Namespace Board

    Public Class ChessBoard

        ' private variables
        Private ReadOnly _darkPieces(15) As ChessPiece
        Private ReadOnly _lightPieces(15) As ChessPiece
        Private ReadOnly _squares(63) As Square

        ' private methods
        Private Sub InitializeSquares()
            Dim counter As Integer = 0
            For rank As Byte = 0 To Square.MAX_RANK
                For file As Integer = 0 To Square.FILE_NAMES.Length - 1
                    _squares(counter) = New Square(rank, Convert.ToByte(file))
                    counter += 1
                Next
            Next
        End Sub

        Private Sub InitializePawns()
            Const darkRank As Integer = 6
            Const lightRank As Integer = 1

            Dim index As Integer = 0
            For fileIndex As Byte = 0 To Convert.ToByte(Square.FILE_NAMES.Length - 1)
                _darkPieces(index) = New Pawn(Shades.Dark, New Square(darkRank, fileIndex))
                _lightPieces(index) = New Pawn(Shades.Dark, New Square(lightRank, fileIndex))
            Next
        End Sub

        ' properties
        Public ReadOnly Property Squares As IReadOnlyList(Of Square)
            Get
                Return _squares
            End Get
        End Property

        ' public methods
        Public Function GetSquare(file As Byte, rank As Byte) As Square
            If (file > Square.FILE_NAMES.Length - 1) Then
                Throw New ArgumentOutOfRangeException(NameOf(file))
            End If
            If (rank > Square.MAX_RANK) Then
                Throw New ArgumentOutOfRangeException(NameOf(rank))
            End If

            Return _squares.Single(Function(square) square.File.Equals(file) AndAlso square.Rank.Equals(rank))
        End Function

        Public Function HasEnemyPiece(square As Square, shade As Shades) As Boolean
            Dim opposingPieces As ChessPiece() = If(shade = Shades.Dark, _lightPieces, _darkPieces)

            Return opposingPieces.Any(Function(piece) piece IsNot Nothing AndAlso piece.Square.Equals(square))
        End Function

        Public Function HasFriendlyPiece(square As Square, shade As Shades) As Boolean
            Dim friendlyPieces As ChessPiece() = If(shade = Shades.Dark, _darkPieces, _lightPieces)

            Return friendlyPieces.Any(Function(piece) piece IsNot Nothing AndAlso piece.Square.Equals(square))
        End Function

        Public Function IsEmpty(square As Square) As Boolean
            Return _
                _darkPieces.All(Function(piece) piece Is Nothing OrElse Not piece.Square.Equals(square)) AndAlso
                _lightPieces.All(Function(piece) piece Is Nothing OrElse Not piece.Square.Equals(square))
        End Function

        Public Sub Reset()
            ' WIP
            InitializePawns()
        End Sub

        ' constructor
        Public Sub New()
            InitializeSquares()
        End Sub

    End Class

End Namespace

---

---

Namespace Board

    Public Class Square
        Implements IEquatable(Of Square)

        ' private variables/constants
        Friend Const FILE_NAMES As String = "ABCDEFGH"

        Friend Const MAX_RANK As Integer = 7

        Private ReadOnly _file As Byte = 0
        Private ReadOnly _rank As Byte = 0

        ' properties
        Public ReadOnly Property Shade As Shades
            Get
                Dim evenRank As Boolean = _rank Mod 2 = 0
                Dim evenFile As Boolean = _file Mod 2 = 0
                Return If(
                    (evenRank AndAlso evenFile) OrElse (Not evenRank AndAlso Not evenFile),
                    Shades.Dark,
                    Shades.Light
                )
            End Get
        End Property

        Public ReadOnly Property File As Byte
            Get
                Return _file
            End Get
        End Property

        Public ReadOnly Property FileName As String
            Get
                Return FILE_NAMES(_file).ToString()
            End Get
        End Property

        Public ReadOnly Property Name As String
            Get
                Return String.Concat(FileName, RankName)
            End Get
        End Property

        Public ReadOnly Property Rank As Byte
            Get
                Return _rank
            End Get
        End Property

        Public ReadOnly Property RankName As String
            Get
                Return (_rank + 1).ToString()
            End Get
        End Property

        ' public methods
        Public Overloads Function Equals(other As Square) As Boolean Implements IEquatable(Of Square).Equals
            If (other Is Nothing) Then
                Return False
            End If
            If (ReferenceEquals(Me, other)) Then
                Return True
            End If
            Return File = other.File AndAlso Rank = other.Rank
        End Function

        Public Overrides Function Equals(obj As Object) As Boolean
            Return Equals(TryCast(obj, Square))
        End Function

        Public Overrides Function GetHashCode() As Integer
            Return HashCode.Combine(File, Rank)
        End Function

        Public Shared Operator =(square1 As Square, square2 As Square) As Boolean
            If (square1 Is Nothing) Then
                Return square2 Is Nothing
            End If
            Return square1.Equals(square2)
        End Operator

        Public Shared Operator <>(square1 As Square, square2 As Square) As Boolean
            If (square1 Is Nothing) Then
                Return square2 IsNot Nothing
            End If
            Return Not square1.Equals(square2)
        End Operator

        Public Overrides Function ToString() As String
            Return Name
        End Function

        Public Sub New(rank As Byte, file As Byte)
            _rank = rank
            _file = file
        End Sub

    End Class

End Namespace

---

---

Namespace Pieces

    Public MustInherit Class ChessPiece

        Public MustOverride ReadOnly Property PieceType As PieceTypes
        Public ReadOnly Property Shade As Shades
        Public Property Square As Square

        Public MustOverride Function GetMoves(board As ChessBoard) As IEnumerable(Of Move)

        Public Sub New(shade As Shades)
            _Shade = shade
        End Sub

        Public Sub New(shade As Shades, square As Square)
            _Shade = shade
            _Square = square
        End Sub

    End Class

End Namespace

---

---

Namespace Pieces

    Public Class Pawn
        Inherits ChessPiece

        ' private variables
        Private Shared ReadOnly PromotionPieceTypes As PieceTypes() = {
            PieceTypes.Queen,
            PieceTypes.Rook,
            PieceTypes.Bishop,
            PieceTypes.Knight
        }

        ' private methods
        Private Sub AddForwardMoves(board As ChessBoard, moves As List(Of Move), targetRank As Byte)
            Dim targetSquare As Square = board.GetSquare(Square.File, targetRank)

            If (Not board.IsEmpty(targetSquare)) Then
                Return
            End If

            If (IsPromotionRank(targetRank)) Then
                AddPromotionMoves(moves, Square, targetSquare, MoveTypes.Promotion)
            Else
                Dim nextMove As New Move(Square, targetSquare, MoveTypes.Normal)
                moves.Add(nextMove)

                If (IsStartingRank(Square.Rank)) Then
                    Dim skipRankNumber As Byte = Convert.ToByte(Square.Rank + If(Shade.Equals(Shades.Dark), 2, -2))
                    Dim skipSquare As Square = board.GetSquare(Square.File, skipRankNumber)

                    If (board.IsEmpty(skipSquare)) Then
                        moves.Add(New Move(Square, skipSquare, MoveTypes.Normal))
                    End If
                End If
            End If
        End Sub

        Private Sub AddPawnCaptureMove(board As ChessBoard, moves As List(Of Move), targetFile As Byte, targetRank As Byte)
            Dim targetSquare As Square = board.GetSquare(targetFile, targetRank)
            If (Not board.HasEnemyPiece(targetSquare, Shade)) Then
                Return
            End If

            If IsPromotionRank(targetRank) Then
                AddPromotionMoves(moves, Square, targetSquare, MoveTypes.PromotionCapture)
            Else
                moves.Add(New Move(Square, targetSquare, MoveTypes.Capture))
            End If
        End Sub

        Private Shared Sub AddPromotionMoves(moves As List(Of Move), fromSquare As Square, toSquare As Square, moveType As MoveTypes)
            For Each promotionPieceType As PieceTypes In PromotionPieceTypes
                moves.Add(New Move(fromSquare, toSquare, moveType, promotionPieceType))
            Next
        End Sub

        Private Function IsStartingRank(rank As Byte) As Boolean
            Return If(Shade.Equals(Shades.Dark), rank = 1, rank = 6)
        End Function

        Private Function IsPromotionRank(rank As Byte) As Boolean
            Return If(Shade.Equals(Shades.Dark), rank = 7, rank = 0)
        End Function

        ' properties
        Public Overrides ReadOnly Property PieceType As PieceTypes = PieceTypes.Pawn

        ' public methods
        Public Overrides Function GetMoves(board As ChessBoard) As IEnumerable(Of Move)
            If (Square Is Nothing) Then
                Return Enumerable.Empty(Of Move)()
            End If

            Dim nextRankNumber As Byte = Convert.ToByte(Square.Rank + If(Shade.Equals(Shades.Dark), -1, 1))
            Dim moves As New List(Of Move)

            AddForwardMoves(board, moves, nextRankNumber)
            If (Square.File > 0) Then
                AddPawnCaptureMove(board, moves, CByte(Square.File - 1), nextRankNumber)
            End If
            If (Square.File < 7) Then
                AddPawnCaptureMove(board, moves, CByte(Square.File + 1), nextRankNumber)
            End If

            Return moves
        End Function

        ' constructor
        Public Sub New(shade As Shades)
            MyBase.New(shade)
        End Sub

        Public Sub New(shade As Shades, square As Square)
            MyBase.New(shade, square)
        End Sub

    End Class

End Namespace

---

---

For IvarImage = 0 To 15      'PROCESS DATA FOR 16 PIXELS FOR IMAGE IN PICTUREBOX. RGB565 DATA.

  '248 = b11111000, SHIFT 3 SPACES TO THE RIGHT.
  RedValueImage = (ALL64.Item(DevNum).Get_SquaresArray(((IvarImage * 2) + 1)) And 248) >> 3
  '7 = b00000111, SHIFT 3 SPACES TO THE LEFT. 224 = b11100000, SHIFT 5 SPACES TO THE RIGHT.
  GreenValueImage = ((ALL64.Item(DevNum).Get_SquaresArray(((IvarImage * 2) + 1)) And 7) << 3) +
      ((ALL64.Item(DevNum).Get_SquaresArray((IvarImage * 2)) And 224) >> 5)
  '31 = b00011111.
  BlueValueImage = ALL64.Item(DevNum).Get_SquaresArray((IvarImage * 2)) And 31

  'NEED TO SCALE UP COLOR VARIABLES.
  RedValueImage = RedValueImage * 255 / 31            '31 CORRESPONDS TO 5 BITS FOR RED
  GreenValueImage = GreenValueImage * 255 / 63        '63 CORRESPONDS TO 6 BITS FOR GRREN
  BlueValueImage = BlueValueImage * 255 / 31          '31 CORRESPONDS TO 5 BITS FOR BLUE

  Dim pixelColor As Color = Color.FromArgb(RedValueImage, GreenValueImage, BlueValueImage)
  bmpImage.SetPixel(xImage, yImage, pixelColor)

  xImage = xImage + 1        'NEXT POINT. IMAGE SIZE IS 160 X 120 PIXELS.
  If xImage > 159 Then
      xImage = 0
      yImage = yImage + 1
      If yImage > 119 Then
        yImage = 0
      End If
  End If

Next

' Display the generated image in a PictureBox. 16 pixels at a time.
pbxCameraImage.Image = bmpImage

---

---


Public Class Form1
    Public MyImage As New BufferedGraphicsContext
    Public rectangle = New Rectangle(x:=0, y:=0, width:=755, height:=201)
    Public MyWorm As System.Drawing.BufferedGraphics
    Public pen1 As Pen = New Pen(Color.White, 2)
    Public pen2 As Pen = New Pen(Color.DarkRed, 1)
    Public pen3 As Pen = New Pen(Color.Navy, 1)
    Dim x As Integer
    Private Sub Form_Load(sender As Object, e As PaintEventArgs) Handles MyBase.Paint
        Me.Width = 820
        Me.Height = 253
        Me.BackColor = Color.DarkSlateGray
        DoubleBuffered = True
        MyWorm = MyImage.Allocate(PictureBox1.CreateGraphics, rectangle)
        With MyWorm.Graphics
            .CompositingMode = Drawing2D.CompositingMode.SourceOver
            .CompositingQuality = Drawing2D.CompositingQuality.AssumeLinear
            .SmoothingMode = Drawing2D.SmoothingMode.HighQuality
            .InterpolationMode = CType(Drawing2D.QualityMode.High, Drawing2D.InterpolationMode)
            .PixelOffsetMode = Drawing2D.PixelOffsetMode.None
        End With
        PlotWorm(Nothing, Nothing)
    End Sub
    Public Sub PlotWorm(sender As Object, e As PaintEventArgs) Handles MyBase.Paint
        Do While x < 121
            For y = 0 To 60 Step 6
                x += 1
                MyWorm.Graphics.DrawLine(pen3, 34 + x, 106 - y, 34 + x, 2 + y)
                MyWorm.Render()
            Next y
            For y = 60 To 0 Step -6
                x += 1
                MyWorm.Graphics.DrawLine(pen3, 34 + x, 106 - y, 34 + x, 2 + y)
                MyWorm.Render()
            Next y
        Loop
        Do While x < 241
            For y = 0 To -60 Step -5
                x += 1
                MyWorm.Graphics.DrawLine(pen2, 42 + x, 108 - y, 42 + x, 2 + y)
                MyWorm.Render()
            Next y
            For y = -60 To 0 Step 5
                x += 1
                MyWorm.Graphics.DrawLine(pen2, 42 + x, 108 - y, 42 + x, 2 + y)
                MyWorm.Render()
            Next y
        Loop
        Do While x < 361
            For y = 0 To 60 Step 4
                x += 1
                MyWorm.Graphics.DrawLine(pen3, 54 + x, 106 - y, 54 + x, 2 + y)
                MyWorm.Render()
            Next y
            For y = 60 To 0 Step -4
                x += 1
                MyWorm.Graphics.DrawLine(pen3, 54 + x, 106 - y, 54 + x, 2 + y)
                MyWorm.Render()
            Next y
        Loop
        Do While x < 481
            For y = 0 To -60 Step -3
                x += 1
                MyWorm.Graphics.DrawLine(pen2, 66 + x, 108 - y, 66 + x, 2 + y)
                MyWorm.Render()
            Next y
            For y = -60 To 0 Step 3
                x += 1
                MyWorm.Graphics.DrawLine(pen2, 66 + x, 108 - y, 66 + x, 2 + y)
                MyWorm.Render()
            Next y
        Loop
    End Sub

End Class

---

---

Private Class MyClass
    Public Yo as String
    Public lbName as Label
    Public cmbChoice as ComboBox
End Class

... (button click, can't be bothered to type it out)
  Dim myVar as New MyClass
  myVar.Yo = "Hey there, you beautiful code."
  myVar.lbName = Label1
  myVar.cmbChoice = ComboBox1
....

---

---


Imports System.Drawing.Drawing2D

Public Class BorderLabel
    Inherits Label
    Public outline_color As Color = Color.Black
    Public border_thickness As Integer = 5
    Public Sub New()
        MyBase.New
    End Sub


    Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
        e.Graphics.FillRectangle(New SolidBrush(BackColor), ClientRectangle)
        Dim gp As GraphicsPath = New GraphicsPath
        Dim outline As Pen = New Pen(Me.outline_color, Me.border_thickness)
        Dim sf As StringFormat = New StringFormat
        Dim foreBrush As Brush = New SolidBrush(ForeColor)
        gp.AddString(GV.Text, Font.FontFamily, CType(Font.Style, Integer), Font.Size, ClientRectangle, sf)
        e.Graphics.ScaleTransform(1.3!, 1.35!)
        e.Graphics.SmoothingMode = SmoothingMode.HighQuality
        e.Graphics.DrawPath(outline, gp)
        e.Graphics.FillPath(foreBrush, gp)
    End Sub
End Class

---

---


Imports System.Security.Cryptography.X509Certificates
Imports System.Windows.Forms.DataVisualization.Charting

Public Class Form1 'ColumnChartExample
    ' summary
    ' Windows Forms example for a column chart with time (seconds) on the X-axis
    ' and positive/negative values on the Y-axis.
    ' Positive values are displayed in blue; negative values are displayed in red.


    Inherits Form

    Dim chart As New Chart()
    Private chartArea As ChartArea
    Private series As Series

    Public AnalysisValues(10) As Integer
    Private Sub Form_Load()

    End Sub
    Private Sub Data()
        AnalysisValues = {1, 3, 4, 3, 2, 1, 0, -1, -3, -4}
    End Sub

    Public Sub New()
        ' Initialize the form
        Me.Text = "Column Chart Example"
        Me.Size = New Drawing.Size(900, 600)

        ' Create the chart control
        chart = New Chart()
        chart.Dock = DockStyle.Fill

        ' Create and configure the chart area
        chartArea = New ChartArea("MainArea")
        chartArea.AxisX.Title = "Time (seconds)"
        chartArea.AxisY.Title = "Value"

        ' Add a zero-crossing line on the Y-axis for clarity
        chartArea.AxisX.Crossing = 0
        chartArea.AxisY.Crossing = 0
        chartArea.AxisY.IntervalAutoMode = IntervalAutoMode.VariableCount

        ' Optional: customize grid lines
        chartArea.AxisX.MajorGrid.LineColor = Drawing.Color.LightGray
        chartArea.AxisY.MajorGrid.LineColor = Drawing.Color.LightGray

        chart.ChartAreas.Add(chartArea)

        ' Create and configure the data series
        series = New Series("DataSeries")
        series.ChartType = SeriesChartType.Column
        series.ChartArea = "MainArea"
        series.IsValueShownAsLabel = True
        series.LabelForeColor = Drawing.Color.Black

        ' Sample data: time in seconds and corresponding positive/negative values
        Dim data As New List(Of Tuple(Of Double, Double)) From {
            Tuple.Create(1.0, 15.0),
            Tuple.Create(2.0, -8.0),
            Tuple.Create(3.0, 22.0),
            Tuple.Create(4.0, -5.0),
            Tuple.Create(5.0, -18.0),
            Tuple.Create(6.0, 7.0),
            Tuple.Create(7.0, 0.0),
            Tuple.Create(8.0, -12.0),
            Tuple.Create(9.0, 30.0),
            Tuple.Create(10.0, -3.0)
        }

        ' Populate the series and color each column based on positive/negative value
        For Each point In data
            Dim dp As New DataPoint()
            dp.SetValueXY(point.Item1, point.Item2)
            dp.AxisLabel = point.Item1.ToString() ' X-axis label shows time in seconds

            ' Color logic: blue for positive, red for negative
            If point.Item2 >= 0 Then
                dp.Color = Drawing.Color.Blue
            Else
                dp.Color = Drawing.Color.Red
            End If

            series.Points.Add(dp)
        Next

        chart.Series.Add(series)

        ' Add a legend for clarity
        Dim legend As New Legend("MainLegend")
        legend.Docking = Docking.Top
        chart.Legends.Add(legend)

        ' Add the chart to the form
        Me.Controls.Add(chart)
    End Sub

    ' summary
    ' Entry point to run the form.

        Public Shared Sub Main()
            Application.EnableVisualStyles()
            Application.SetCompatibleTextRenderingDefault(False)
        Application.Run(New Form1())  '(New ColumnChartExample())
    End Sub

    End Class

---