by Ricardo Buccianti (3 Submissions)
Category: Custom Controls/Forms/Menus
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Tue 12th June 2001
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
Just some fine tuning to the code that creates a Frame with rounded corners.
VBcoders
SetNewShape
End Sub
Private Sub SetNewShape()
With Shape1
.BackColor = &H8000000F
.BackStyle = 0
.BorderColor = &H8000000C
.BorderStyle = 1
.BorderWidth = 1
.FillStyle = 1
.Shape = 4
.ZOrder
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
.AutoSize = True
.Alignment = 2
.Width = Label1.Width + 110
.Left = Shape1.Left + 350
.Top = Shape1.Top - 110
.ZOrder
End With
End Sub
No comments have been posted about Just some fine tuning to the code that creates a Frame with rounded corners.. Why not be the first to post a comment about Just some fine tuning to the code that creates a Frame with rounded corners..