[Gambas-user] It wil not work, anyone a idea what is wrong

[ron]

On Saturday 03 April 2004 11:23, ron wrote:
> Hi
>
> I'm feeling realy stupid, no not a yoke.
>
> Public sub button1_KeyPress() 'add \n and key.code
>   Report( "button1_KeyPress()" & " Key.Code=" & Key.Code)
> end
>
> PRIVATE SUB Report (ReportIn AS String)
> DIM key AS String
> DIM Report AS String
> DIM KeyText AS String
> DIM iPos AS Integer
>
>  iPos=Instr(Report,"-") '<------------- had to change to ReportInN !!!
>  PRINT iPos
>  Report  = ReportIn
>  keyText = ""
>  IF iPos>0 THEN 
>    Report  =Left$(reportIn,iPos-1)
>    keytext =Mid$(ReportIn,iPos+1)  
>  ENDIF


O I have say it already, I'm stupid