'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