Private Sub LeggeFile_Click
ProgressDialogShow("Reading..") ' this appears only with the following Sleep
Sleep(100)
If FileName.Length>0 Then ' a long reading operation
If File.Exists(Starter.rp.GetSafeDirDefaultExternal(""), FileName) Then
wait for (LongFileRead(FileName)) Complete (res As Boolean)
If res Then
..............
...............
End If
End If
End If
ProgressDialogHide
End Sub