Testing...

[Fox]

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

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)

[Fox]

Sorry but I need this to test ...

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.

[Fox]

The others?

Originally posted by Fox
The others?

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

[Fox]

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..

[parksie]

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

[Fox]

Ah nice

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

[parksie]

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

[Active]

Test

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

[Active]

It Works...

GreatJobFox

[Fox]

Thanks