[LemonyBrainAid]

Whoops - Forgot to mention a module...

Option Explicit On 
Module Module1
	Public Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
	Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
	Declare Function timeGetTime Lib "winmm.dll" () As Long
	Public Structure tData
		Dim Key As String
		Dim Value As String
	End Structure



	Public Function FormData(ByVal Key As String, ByVal Value As String) As tData 'saves a few lines....
		FormData.Key = Key
		FormData.Value = Value
	End Function

	Public Function tData2String(ByVal ExtraData() As tData) As String
		Dim Datastring As String
		Dim x As Integer

		For x = LBound(ExtraData) To UBound(ExtraData)
		    Datastring = Datastring & ExtraData(x).Key & "=" & ExtraData(x).Value & "&"
		Next
		tData2String = Left$(Datastring, Len(Datastring) - 1)
	End Function

End Module