Sub Activity_Create(FirstTime As Boolean)
SQL1.Initialize(Main.dbFileDir, Main.dbFileName, True)
Activity.LoadLayout("DocumentFormView_LT")
Activity.Title = "Document Content"
Cursor = SQL1.ExecQuery("SELECT ID, HtmlSource FROM mDOCUMENTS WHERE ID="&DocumentList.SelectedRecord)
For i = 0 To Cursor.RowCount - 1
Cursor.Position = i
DocSource = Cursor.GetString("HtmlSource")
Next
WebView1.LoadHtml(DocSource)
ProgressDialogShow("Loading " &DocUrl)
End Sub