• Home
 · 
• Graphics
 · 
• Better way to make a gradent. no api's and LOOKS SOLID that's right no lines of color this gradent

Better way to make a gradent. no api's and LOOKS SOLID that's right no lines of color this gradent

Better way to make a gradent. no api's and LOOKS SOLID that's right no lines of color this gradent Blends together perfectly

Rate Better way to make a gradent. no api's and LOOKS SOLID that's right no lines of color this gradent

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

'I totaly let you use any and all of this source
'You can edit however you like
'You dont evin need to credit me for it
'Made by OverFlow > [email protected]
Public Function DoGradent(GHeight As Integer, GWidth As Integer)
'GHeight and GWidth are your form's width and height
GWidth = (GWidth / 68)
Dim Left, Finish, c, start, a As Integer
start = (1.5 * GWidth)
For a = 1 To GWidth
    Load Shape1(a)
    Shape1(a).width = 135
    Shape1(a).Height = GHeight
    Shape1(a).Left = c
    'Here is the tricky part
    'to get the color you want you half to mess with
    'the start and finish variables
    'start is the starting color
    'for a red green or blue only put start once
    'at the color you want it to start at
    'if you want other colors then you mix by
    'putting 2 start variables
    'just play around with it youl get it
    Shape1(a).BackColor = RGB(0, Finish, start)
    Shape1(a).Refresh
    Shape1(a).Visible = True
    Shape1(a).Top = 0
    Shape1(a).BackStyle = 1
    Shape1(a).BorderStyle = 0
    Finish = Finish + 1.5
    start = start - 1.5
    c = c + (135 / 2)
Next a
End Function