Snippet Library

On a form, place two frame objects and name them Frame1 and 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!!!

Private Sub Form_Load()
     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;