Sub btnTXT_Click
'Inhalts-Datei anzeigen
Dim cd As CustomDialog
Dim pnl As Panel
pnl.Initialize("pnl")
Dim bgnd As ColorDrawable
bgnd.Initialize(Colors.RGB(250, 250, 210), 5dip)
pnl.Background = bgnd
'
scvText.Initialize(100)
pnl.AddView(scvText, 0, 0, 95%x,60%y)
'
lblText.Initialize("")
scvText.Panel.AddView(lblText, 0, 0 ,100%x, 100%y)
lblText.Color = Farbe1
lblText.TextColor = Farbe2
'
txt = File.ReadString(AppDir & "/Daten",txtDatei)
lblText.Text = txt
scvText.Panel.Height = 50%y
lblText.Height = Tsize2
'
scvText.ScrollPosition = 0 ' set the scroll position to the top of the text
DoEvents ' needed to execute the previous line
'
cd.AddView(pnl, 0, 0, 95%x,60%y)
Dim ret As String
ret = cd.Show(lbl02.Text,"schliessen","","", Null)
'
End Sub