Visual Basic

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