Visual Basic > Applications VBA sample source codes

Visual Basic Code > Make a form with a gradient background

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