• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Add a gradient fram around a form.

Add a gradient fram around a form.

Add a gradient fram around a form.

Rate Add a gradient fram around a form.

• 1
• 2
• 3
• 4
• 5

(3(3 Vote))

    If frm.WindowState = vbMinimized Then Exit Sub
    size = size + 2
    If smooth = True Then
        frm.DrawStyle = 6
    Else
        frm.DrawStyle = 0
    End If
    If frm.ScaleWidth <> 255 Then
        frm.ScaleWidth = 255
    End If
    If frm.ScaleHeight <> 255 Then
        frm.ScaleHeight = 255
    End If
    frm.DrawWidth = 5
    frm.Refresh
    ri = (rs - re) / 255
    gi = (gs - ge) / 255
    bi = (bs - be) / 255
    rc = rs: bc = bs: gc = gs
    For X = 255 To 0 Step -1
        DoEvents
        frm.Line ((X / size%), (X / size%))-(frm.ScaleWidth - (X / size%), frm.ScaleHeight - (X / size%)), RGB(rc, gc, bc), B
        rc = rc - ri
        gc = gc - gi
        bc = bc - bi
    Next X
End Sub

'Sample for using this routine
Private Sub Form_Resize()
    BoxGradient Form1, 111, 111, 222, 222, 255, 255, 5, True
End Sub