Leaderboard

JohnOne, It is in the one I have - here you go: Func __Init($bData) Local $tData, $Ret, $Lenght $Lenght = BinaryLen($bData) $Ret = DllCall('kernel32.dll', 'ptr', 'VirtualAlloc', 'ptr', 0, 'ulong_ptr', $Lenght, 'dword', 0x00001000, 'dword', 0x00000040) If (@error) Or (Not $Ret[0]) Then __FatalExit(1, 'Error allocating memory.') EndIf $tData = DllStructCreate('byte[' & $Lenght & "]", $Ret[0]) DllStructSetData($tData, 1, $bData) Return $Ret[0] EndFunc ;==>__Init Func __FatalExit($iCode, $sText = '') If $sText Then _WinAPI_MsgBox(0x00040010, 'AutoIt', $sText) EndIf _WinAPI_FatalExit($iCode) EndFunc ;==>__FatalExit Func _WinAPI_FatalExit($iCode) DllCall('kernel32.dll', 'none', 'FatalExit', 'int', $iCode) EndFunc ;==>_WinAPI_FatalExit And belated apologies for having cheered on Oldham last night - although I did not really expect a different result. M23

And just why would you even suggest that someone (an MVP no less) who has been a member for 8 years and has over 4600 posts might want to leave the forums. Be careful what you say to people with that kind of experience behind them when you have been a member for only a year and just made the 250 posts mark. EDIT: I should have also pointed out that you made that comment to a very well respected member of this community.

google: excel vba multicolor text first result ActiveCell = "Red and Blue" ActiveCell.Characters(Start:=1, Length:=3).Font.ColorIndex = 3 ActiveCell.Characters(Start:=9, Length:=4).Font.ColorIndex = 5

You can return by a function an error code, then base on the return code you exitloop... While $i = 2 $iRet = IamPro() If @error Then ExitLoop ;or like this: If $iRet = -1 Then ExitLoop $C += 30 WEnd Func IamPro() If $C = 100 Then Return SetError(1, 0, -1) Endfunc