I don't like my threads being moved.

[MidgetsBro]

Can anyone give me suggestions on how to optimize this, and what I can use it for??

Plop this code on a form with a black background, autoredraw set to true, and a command button called command1.

Private Sub Command1_Click()
For q = 1 To 10
Cls
For i = 0 To 255 Step 2
  Line (i, i)-(i + i, i + i), RGB(0, 0, i), B
  DoEvents
Next
For i = 0 To 255 Step 2
  Line (i, i)-(i + i, i + i), vbBlack, B
  DoEvents
Next
Cls
For i = 255 To 0 Step -2
  Line (i, i)-(i + i, i + i), RGB(0, 0, i), B
  DoEvents
Next
For i = 255 To 1 Step -2
  Line (i, i)-(i + i, i + i), vbBlack, B
  DoEvents
Next
Next
End Sub

I don't like you martin.