Testing...

I'm testing my new tool for vBulletin which formats your code as shown below :) :

Code:

---

Private Sub Test(A As string)
  Dim b As Long
 
  For b=0 To a
      'code here
      Line (0,a)-(0,b),255,BF
  Next
End Sub

---

(will post a link soon)

Sorry but I need this to test ...

Code:

---

Public Declare Function BitBlt Lib "gdi32" Alias "BitBlt" ( _
        ByVal hDestDC As Long, _
        ByVal X As Long, _
        ByVal Y As Long, _
        ByVal nWidth As Long, _
        ByVal nHeight As Long, _
        ByVal hSrcDC As Long, _
        ByVal xSrc As Long, _
        ByVal ySrc As Long, _
        ByVal dwRop As Long) As Long

---

Seams like this is a good idea, maybe you should get together with the others and merge this onto one program.

The others?

Quote:

---

Originally posted by Fox
The others?

---

oh if you saw Parksie and Active were working on a program to do colour gradients (although seperate)

Aaah :) That's why everyone has rainbow text in the signature now ;)

well my program is especially for the [code] parts.. but maybe we'll put something together later.. :D

When I've finished putting my code together mine will do:
Customisable multi-point gradients (like photoshop)
Wrapping (as in going through the gradient more than once in the same text)
Choose whether you want it through all text, or by lines.

Show-off time:
parksie
parksie
parksie
parksie

Ah nice :)

btw: vBulletin Tool is out now, click here to download.

Ah yes....I downloaded that earlier :)
Very nice!

Test

Code:

---

Dim X  As String
Dim Y As String
Dim I_Die As Boolean
Dim I_Live As Boolean

I_Live = True

If X <> Y Then
  Do
  Loop Until I_Die
Else
  Do While I_Live
 Loop
End If

---

It Works...

GreatJobFox

Thanks :)