'make a gradient form

'take a new form
'put a line 

on

it: index number = 0 'a label with some text: set the BackStyle = transparant 'and

put

the next code

on

the form 'press F5 'you can

make

any change and use it 'in combination with splashscreen 'just enter the appropiate code Private

sub

Form_Load() Dim k% Const

afstand

= 15 Const vSKleur = &HFF

on

Error Resume Next Line1(0).X1 = 0: Line1(0).Y1 = 0 Line1(0).X2 = form1.Width: Line1(0).Y2 = 0 Label1.Width = form1.Width Label1.Move 0, 0 Label1.Align = 2 Me.Show Screen.MousePointer = vbHourglass For k = 1 To (form1.Height / Afstand) DoEvents Load Line1(k) Line1(k).X1 = 0: Line1(k).Y1 = Line1(k - 1).Y1 + Afstand Line1(k).X2 = form1.Width: Line1(k).Y2 = Line1(k - 1).Y1 + Afstand Line1(k).BorderColor = vSKleur * Int(vSKleur * (k / (form1.Height / Afstand))) Line1(k).Visible = True Next k Screen.MousePointer = vbNormal End Sub Private

sub

Form_KeyPress(KeyAscii

as

Integer) Unload form1 End Sub Private

sub

Form_Unload(Cancel

as

Integer) End End Sub
Return