Just a couple of comments and corrections:

In the do method, you want to place the call to the CheckVersion() method just before the display the application menu and toolbar calls. The way I have the code below is correct, but I need to emphasize the point.

        This.ReleaseSplash()
ENDIF

*--------------------------------------------
*--- Check the version information
*--------------------------------------------
IF This.lCheckVersion
	IF !This.Checkversion()
		RETURN .F.
	ENDIF
ENDIF

In the CheckVersion method, I forgot to remove some debugging stuff. Change the code:

*--------------------------------------------------------
*--- Get a reference to the Local STF file
*--------------------------------------------------------
lcEXE = SYS(16,0)
IF VERSION(2) <> 0
	lcLocalSTF = getfile("STF", "Open STF file")
ELSE
	lcLocalSTF  = ADDBS(JUSTPATH(lcEXE))+"Setup\Setup.stf"
ENDIF

To:
*--------------------------------------------------------
*--- Get a reference to the Local STF file
*--------------------------------------------------------
lcEXE = SYS(16,0)

IF VERSION(2) = 0
	lcLocalSTF  = ADDBS(JUSTPATH(lcEXE))+"Setup\Setup.stf" && Runtime
ELSE
	RETURN .T. && Not running an exe
ENDIF

CREATE CURSOR stfcursor (cText C(65))