>* Form refresh, triggered by a timer
>
>Local cLogDir As String, cPrefix As String, cFile As String, cSource As String
>
>cLogDir = [Logs\]
>
>If Thisform.Optiongroup1.Option1.Value = 1
>	cPrefix = cLogDir + [RMT54]
>Else
>	cPrefix = cLogDir + [RMT54RunErrors]
>Endif
>
>cFile = cPrefix + Dtos(Date()) + [.Log]
>
>If Not File(cFile)
>	cFile = cPrefix + Dtos(Date()-1) + [.Log]
>Endif
>
>If File(cFile)
>	cSource = Filetostr(cFile)
>Else
>	cSource = [There has been no activity for, at the very least, 24 hours...]
>Endif
>
>Thisform.AddProperty('cSource',cSource)
>
>With Thisform.Pages1._Page1.Tekst       && the Edixbox
>	.ControlSource = Thisform.cSource
>	.Value = Thisform.cSource
>EndWith
>
>* Now it would be nice if there was a way to display
>* the last "page" of Thisform.cSource (I hope this is understandable)
>
>

With Thisform.Pages1._Page1.Tekst       && the Editbox
	.ControlSource = Thisform.cSource
	.Value         = Thisform.cSource
        .SelStart      = LEN(Thisform.cSource)
EndWith