For Example i get an error message for the 3. row in this code when I convert from A 2.0 to A 2003
Function SetCaption()
Dim hWnd%
hWnd% = FindWindow%("OMain", 0&)
Call SetWindowText(hWnd%, idsAPPNAME)
End Function

Maybe its a problem behind this problem, but the first error message is that one.
Some advise?

Rune