Um ihre Form grafisch etwas aufzupeppen, ist es recht
einfach möglich einen Farbverlauf als Form Hintergrund zu definieren.
Gehen Sie dazu in die Paint-Definition der entsprechenden Form.Form/Paint
Sub Form_Paint ()
DrawStyle = 6
DrawMode = 13 '3/4=gelb zu weiß verlauf 5=blau mit schwarzen strichen
DrawWidth = 2
ScaleMode = 3
ScaleHeight = 512
For i% = 0 To 511
Line (0, i%)-(Me.Width, i% + 1), RGB(0, 0, 511 - i%), B
Next i%
End Sub |