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.

[wrack]

Originally posted by 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.

what do u mean by optimize this...I can only see something like small flame in the top left corner...

What exactly u r looking for...

[D12Bit]

is this ok?

Option Explicit
Dim i, q, r As Integer
 
Private Sub Command1_Click()
    r = -2
    For q = 1 To 10
        Cls
        If r = -2 Then r = 2 Else r = -2
        For i = 0 To 255 Step r
          Line (i, i)-(i + i, i + i), RGB(0, 0, i), B
          DoEvents
        Next
        For i = 0 To 255 Step r
          Line (i, i)-(i + i, i + i), vbBlack, B
          DoEvents
        Next
    Next
End Sub

and where can you use it?...I have no idea

but I might use it to indicate that there's a process going on...just an idea

[MidgetsBro]

Just so you know, I only posted this in question form so that martin wouldn't move it again. ugh. I was bored at work again. Try setting the scalemode to pixels on the form.

[brenaaro]

thats pretty neat..though I dont know what it would be used for

[D12Bit]

LOL

[wrack]

If u change the colour from to yellow and mix of red and make it like a YELLOW and mix with orange then u can use it as a GUN shot...

When a bullet comes out of a GUN it makes a small fire and this might be useful there...

Cheers...