Change your FindWindow line to match the following. Adding the classname will help narrow your search
Code:
'Use This line when you are running a compiled EXE
strClass = ThunderRT6Form

'Use this line if you are running within the IDE
strClass = ThunderForm

handle = FindWindow(strClass, "My Application")