• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Just some fine tuning to the code that creates a Frame with rounded corners.

Just some fine tuning to the code that creates a Frame with rounded corners.

Just some fine tuning to the code that creates a Frame with rounded corners.

Rate Just some fine tuning to the code that creates a Frame with rounded corners.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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