Visual Basic

Sub TestForLoop()
    ' Declare a list of rectangles and add 2 rectangles to it
    Dim lstRectangles As New List(Of Rectangle)
    lstRectangles.Add(New Rectangle(100, 200, 1000, 2000))
    lstRectangles.Add(New Rectangle(500, 700, 1500, 2000))

    ' This is the number used to scale the rectangle
    Dim gScale As Single = 0.1

    ' Before doing changes, write the rectangles dimensions to debug window.
    ShowRectDimensions("Before scaling:               ", lstRectangles)
    Debug.WriteLine("")

    ' Jump thru the elements, update and scale each rectangles dimensions. 
    For Each rect As Rectangle In lstRectangles
        With rect
            rect = New Rectangle(CInt(.Left * gScale), CInt(.Top * gScale),
                                 CInt(.Width * gScale), CInt(.Height * gScale))
            ' Write the changes to debug window while looping thru the list.
            Debug.WriteLine("Result inside For Each Loop:  {0}x{1},{2}x{3}", .Left, .Top, .Width, .Height)
        End With
    Next

    ' After the loop, write the rectangles dimensions to debug window once again.
    ShowRectDimensions("Result outside For Each Loop: ", lstRectangles)
    Debug.WriteLine("")


    ' Go thru the list, update and scale each rectangles dimension. 
    For i As Integer = 0 To lstRectangles.Count - 1
        With lstRectangles(i)
            lstRectangles(i) = New Rectangle(CInt(.Left * gScale), CInt(.Top * gScale),
                                             CInt(.Width * gScale), CInt(.Height * gScale))
            ' Write the changes to debug window while looping thru the list.
            Debug.WriteLine("Result inside For Next Loop:  {0}x{1},{2}x{3}", .Left, .Top, .Width, .Height)
        End With
    Next

    ' After the loop, write the rectangles dimensions to debug window once again.
    ShowRectDimensions("Result outside For Next Loop: ", lstRectangles)
    Debug.WriteLine("")
End Sub

' Created this sub to save some repetition. It writes the dimensions of the rectangles in a list.
Private Sub ShowRectDimensions(sText As String, lstRectangles As List(Of Rectangle))
    For Each rect As Rectangle In lstRectangles
        With rect
            Debug.WriteLine("{0}{1}x{2},{3}x{4}", sText, CStr(.Left), CStr(.Top), CStr(.Width), CStr(.Height))
        End With
    Next
End Sub

Before scaling:               100x200,1000x2000
Before scaling:               500x700,1500x2000

Result inside For Each Loop:  10x20,100x200
Result inside For Each Loop:  50x70,150x200
Result outside For Each Loop: 100x200,1000x2000
Result outside For Each Loop: 500x700,1500x2000

Result inside For Next Loop:  100x200,1000x2000
Result inside For Next Loop:  500x700,1500x2000
Result outside For Next Loop: 10x20,100x200
Result outside For Next Loop: 50x70,150x200

Dim hashedPassword = Crypto.HashPassword(password)

Public Sub CreateAccount(ByVal username As String, ByVal password As String)
        Dim hashedPassword = Crypto.HashPassword(password)
        CreateAccountInDatabase(username, hashedPassword)
    End Sub

    Private Sub CreateAccountInDatabase(username As String, hashedPassword As Object)
        Throw New NotImplementedException()
    End Sub

    Private Sub CreateAccount(ByVal username As String, ByVal password As String, ByVal email As String)
        Using connection As New OleDbConnection("connectionString")

            Dim Sql As String = "INSERT INTO university (username,strEmail,hashed) VALUES (@username,@strEmail,@hashed)"

            Dim cmd As New OleDbCommand(Sql)
            cmd.Connection = connection

            cmd.Parameters.AddWithValue("@username", username)
            cmd.Parameters.AddWithValue("@strEmail", email)
            Dim hashedPassword = Crypto.HashPassword(password)
            cmd.Parameters.AddWithValue("@hashed", hashedPassword)
            connection.Open()
            cmd.ExecuteNonQuery()

        End Using
    End Sub

    Private Sub BtnReg_Click(sender As Object, e As EventArgs) Handles BtnReg.Click
                CreateAccount(username.Text, password.Text, strEmail.Text)

        End Sub

Dim OSVer As Version = Environment.OSVersion.Version
Dim versie = My.Computer.Info.OSVersion

Private Sub DataGridView1_CellPainting(ByVal sender As Object, ByVal e As DataGridViewCellPaintingEventArgs) Handles DataGridView1.CellPainting
        'If there is no search string, no rows, or nothing in this cell, then get out. 
        If ComboBox1.Text = String.Empty Then Return
        If (e.Value Is Nothing) Then Return
        If e.RowIndex < 0 Or e.ColumnIndex < 0 Then Return

        e.Handled = True
        e.PaintBackground(e.CellBounds, True)

        'Get the value of the text in the cell, and the search term. Work with everything in lowercase for more accurate highlighting
        Dim str_SearchTerm As String = ComboBox1.Text.Trim.ToLower
        Dim str_CellText As String = DirectCast(e.FormattedValue, String).ToLower

        'Create a list of the character ranges that need to be highlighted. We need to know the start index and the length
        Dim HLRanges As New List(Of CharacterRange)
        Dim SearchIndex As Integer = str_CellText.IndexOf(str_SearchTerm)
        Do Until SearchIndex = -1
            HLRanges.Add(New CharacterRange(SearchIndex, str_SearchTerm.Length))
            SearchIndex = str_CellText.IndexOf(str_SearchTerm, SearchIndex + str_SearchTerm.Length)
        Loop

        ' We also work with the original cell text which is has not been converted to lowercase, else the sizes are incorrect
        str_CellText = DirectCast(e.FormattedValue, String)

        ' Choose your colours. A different colour is used on the currently selected rows
        Dim HLColour As SolidBrush
        If ((e.State And DataGridViewElementStates.Selected) <> DataGridViewElementStates.None) Then
            HLColour = New SolidBrush(Color.DarkGoldenrod)
        Else
            HLColour = New SolidBrush(Color.Yellow)
        End If

        'Loop through all of the found instances and draw the highlight box
        For Each HLRange In HLRanges

            ' Create the rectangle. It should start just underneath the top of the cell, and go to just above the bottom
            Dim HLRectangle As New Rectangle()
            HLRectangle.Y = e.CellBounds.Y + 2
            HLRectangle.Height = e.CellBounds.Height - 5

            ' Determine the size of the text before the area to highlight, and the size of the text to highlight. 
            ' We need to know the size of the text before so that we know where to start the highlight rectangle
            Dim TextBeforeHL As String = str_CellText.Substring(0, HLRange.First)
            Dim TextToHL As String = str_CellText.Substring(HLRange.First, HLRange.Length)
            Dim SizeOfTextBeforeHL As Size = TextRenderer.MeasureText(e.Graphics, TextBeforeHL, e.CellStyle.Font, e.CellBounds.Size)
            Dim SizeOfTextToHL As Size = TextRenderer.MeasureText(e.Graphics, TextToHL, e.CellStyle.Font, e.CellBounds.Size)

            'Set the width of the rectangle, a little wider to make the highlight clearer
            If SizeOfTextBeforeHL.Width > 5 Then
                HLRectangle.X = e.CellBounds.X + SizeOfTextBeforeHL.Width - 6
                HLRectangle.Width = SizeOfTextToHL.Width - 6
            Else
                HLRectangle.X = e.CellBounds.X + 2
                HLRectangle.Width = SizeOfTextToHL.Width - 6
            End If

            'Paint the highlight area
            e.Graphics.FillRectangle(HLColour, HLRectangle)
        Next

        'Paint the rest of the cell as usual
        e.PaintContent(e.CellBounds)
    End Sub