Make a form with a gradient background

Source Code :

'Make a form with a gradient background
'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

Related Post :