TextOut not working...

hey folks...

i've got an issue with some simple code that won't work...

the textout does not draw the text unless i remove the exitprocess and allow it to crash when run...

Code:

format PE GUI 4.0
entry start

include 'C:\fasm\INCLUDE\win32a.inc'

section '.data' data readable writeable

     Text     db   'hello',0

section '.code' code readable executable
  start:

   invoke GetDC,0
   mov ebp,eax
   invoke SetBkColor,ebp,00e6ffffh
   invoke SetTextColor,ebp,007f0000h
   invoke TextOut,ebp,10,40,Text,5
   invoke ExitProcess,0

section '.idata' import data readable writeable

  library kernel,'KERNEL32.DLL',\
          gdi,'GDI32.DLL',\
          user,'USER32.DLL'

  import  kernel,\
          ExitProcess,'ExitProcess'

  import  user,\
          GetDC,'GetDC',\
          ReleaseDC,'ReleaseDC'

  import  gdi,\
          TextOut,'TextOutA',\
          SetBkColor,'SetBkColor',\
          SetTextColor,'SetTextColor'

any help making this work is much appreciated =)

thanks in advance =)

edit:

i went ahead and tried some line drawing, with even less success...

Code:

format PE GUI 4.0
entry start

include 'C:\Documents and Settings\nnop\Desktop\crackin-and-such\fasm\INCLUDE\win32a.inc'

section '.data' data readable writeable

     Text     db   'hello',0

section '.code' code readable executable
  start:

   invoke GetDC,0
   mov ebp,eax
   invoke SetBkColor,ebp,00e6ffffh
   invoke SetTextColor,ebp,007f0000h
   invoke TextOut,ebp,10,40,Text,5
   invoke CreatePen,PS_SOLID,1,00ff0000h
   mov ebx,eax
   invoke SelectObject,ebx,ebp
   invoke MoveToEx,ebx,200,200,0
   invoke LineTo,ebx,500,500
;   invoke Sleep,10000
   invoke ReleaseDC,0,ebx
   invoke ExitProcess,0

section '.idata' import data readable writeable

  library kernel,'KERNEL32.DLL',\
          gdi,'GDI32.DLL',\
          user,'USER32.DLL'

  import  kernel,\
          ExitProcess,'ExitProcess',\
          Sleep,'Sleep'

  import  user,\
          GetDC,'GetDC',\
          ReleaseDC,'ReleaseDC'

  import  gdi,\
          TextOut,'TextOutA',\
          SelectObject,'SelectObject',\
          SetBkColor,'SetBkColor',\
          MoveToEx,'MoveToEx',\
          LineTo,'LineTo',\
          CreatePen,'CreatePen',\
          SetTextColor,'SetTextColor'

the writting of hello works now...

so i guess that that was some kind of delay/timing issue...

i can't figure what wrong with the lines...

any help is much appreciated =)

; Change 1: invoke TextOut,ebp,10,40,Text,5 invoke GdiFlush invoke ExitProcess,0 ; Change 2: import gdi,\ TextOut,'TextOutA',\ SetBkColor,'SetBkColor',\ SetTextColor,'SetTextColor',\ GdiFlush,'GdiFlush'