[Rioven]

Thanks guys for your input.

I've tried the following code,
I created a dummy control 'tb001' to trigger the file reading...

Now it works...No overlaps or error on file reading. Is this code OK??

Sub Section_click
Shell("sectionProperty1.exe")
tb001.Focus
End Sub

Sub tb001_GotFocus
           FileOpen (c1,AppPath&"\"&"SectionFileSelected.txt",cRead)
           lbsection.Text= FileRead (c1)
	  FileClose(c1)
End Sub