Visual Basic

Public Function GetCrc32(ByRef stream As System.IO.Stream) As Integer

        Dim crc32Result As Integer
        crc32Result = &HFFFFFFFF

        Dim buffer(BUFFER_SIZE) As Byte
        Dim readSize As Integer = BUFFER_SIZE

        Dim count As Integer = stream.Read(buffer, 0, readSize)
        Dim i As Integer
        Dim iLookup As Integer
        Dim tot As Integer = 0
        Do While (count > 0)
            For i = 0 To count - 1
                iLookup = (crc32Result And &HFF) Xor buffer(i)
                crc32Result = ((crc32Result And &HFFFFFF00) \ &H100) And &HFFFFFF   ' nasty shr 8 with vb :/
                crc32Result = crc32Result Xor crc32Table(iLookup)
            Next i
            count = stream.Read(buffer, 0, readSize)
        Loop

        GetCrc32 = Not (crc32Result)

    End Function

Dim f As FileStream = New FileStream(path, FileMode.Open, FileAccess.Read, FileShare.Read, 8192)
                crc = c32.GetCrc32(f)
                lblCRC32.Text = Hex(crc)

Using cnn As New SqlConnection(constrSQL)
            cnn.Open()
            dbName = cnn.Database.ToString()
            cnn.ChangeDatabase("master")
            Dim sc As New ServerConnection(cnn)
            Dim sv As New Server(sc)
            ' Create backup device item for the backup
            filePath = Path.Combine(filePath, databaseName & ".bak")
            Dim bdi As New BackupDeviceItem(filePath, DeviceType.File)
            ' Create the restore object
            Dim resDB As New Restore()
            resDB.Database = dbName
            resDB.Action = RestoreActionType.Database
            resDB.ReplaceDatabase = True
            resDB.NoRecovery = False
            resDB.Devices.Add(bdi)
            resDB.PercentCompleteNotification = 10
            AddHandler resDB.PercentComplete, AddressOf ProgressEventHandler
            resDB.Database = dbName
            ' Restore the database
            Try
                resDB.SqlRestore(sv)
                sv.Refresh()
                sv = Nothing
            Catch ex As Exception
                log.Debug(ex.ToString)
                Throw (ex)
            End Try
        End Using

Sub PutRedRectangle(ByVal _ctrl As Control)
    Dim canvas As New Microsoft.VisualBasic.PowerPacks.ShapeContainer
    Dim rect1 As New Microsoft.VisualBasic.PowerPacks.RectangleShape
    ' Set the form as the parent of the ShapeContainer.
    canvas.Parent = Me.GroupBox1 '' here is the wrong, if i changed that line to <code>canvas.Parent = Me</code> and put the textbox outside the groupbox, the rectangle will surround the textbox correctly.
    ' Set the ShapeContainer as the parent of the RectangleShape.
    rect1.Parent = canvas
    ' Set the location and size of the rectangle.
    rect1.Left = _ctrl.Left -1
    rect1.Top = _ctrl.Top - 1
    rect1.Width = _ctrl.Width + 2
    rect1.Height = _ctrl.Height + 2
    rect1.BorderWidth = 2
    rect1.BorderColor = Color.Red
End sub