توسط این سورس کد می توانید روی فرم افکت زیبایی ایجاد کنید. 

Private Sub Form_Load()
Me.AutoRedraw = True
For i = 0 To Height
Me.Line (0, i)-(Width, i), -RGB(0, i / 20, 0)
Next
End Sub

Private Sub Form_Resize()
Form_Load
End Sub