Du verwendest einen veralteten Browser. Es ist möglich, dass diese oder andere Websites nicht korrekt angezeigt werden. Du solltest ein Upgrade durchführen oder ein alternativer Browser verwenden.
im paint-ereignis von deinem formular schreibst du folgenden code:
Code:
Dim i As Integer
With Me
.DrawStyle = 6
.DrawMode = 13
.DrawWidth = 2
.ScaleMode = 3
.ScaleHeight = 512
End With
For i = 0 To 511
Line (0, i)-(Width, i + 1), RGB(0, 0, 511 - i), B
Next i
