by Ricardo Buccianti (3 Submissions)
Category: Custom Controls/Forms/Menus
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 22nd November 2001
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
Tired of the same old square Frame? This short code creates a frame with rounded corners to turn your application unique.
API Declarations
Frame2 and also a label named Label1. Frame1 should be sized and located
exactly where you want the frame to be in your form and Frame2 could be
placed anywhere in your form.
Run the program, the result is real cool!!!
VBcoders
SetNewShape
End Sub
Private Sub SetNewShape()
With Shape1
.BackColor = &H8000000F
.BackStyle = 0
.BorderColor = &H8000000C
.BorderStyle = 1
.BorderWidth = 1
.FillStyle = 1
.Shape = 4
End With
With Shape2
.BackColor = &H8000000F
.BackStyle = 1
.BorderColor = &H80000009 ''white for contrast
.BorderStyle = 1
.BorderWidth = 1
.FillStyle = 1
.Shape = 4
.Height = Shape1.Height
.Left = Shape1.Left + 20 ''move to the left
.Top = Shape1.Top + 20 ''move down
.Width = Shape1.Width
End With
With Label1
.Width = Label1.Width + 110
.Left = Shape1.Left + 350
.Top = Shape1.Top - 110
.ZOrder
End With
End Sub
No comments have been posted about Tired of the same old square Frame? This short code creates a frame with rounded corners to turn yo. Why not be the first to post a comment about Tired of the same old square Frame? This short code creates a frame with rounded corners to turn yo.