• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Add a circular color gradient to your form.

Add a circular color gradient to your form.

Add a circular color gradient to your form.

Rate Add a circular color gradient to your form.

• 1
• 2
• 3
• 4
• 5

(3(3 Vote))

    If frm.WindowState = vbMinimized Then Exit Sub
    frm.BackColor = RGB(re, ge, be)
    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 = 0 To 255
        frm.Circle (frm.ScaleWidth / 2, frm.ScaleHeight / 2), X, RGB(rc, gc, bc)
        rc = rc - ri
        gc = gc - gi
        bc = bc - bi
    Next X
End Sub

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