Sub tbhPages_TabChanged
If tbhPages.CurrentTab = "2" Then
ShowTableInWebView
End If
End Sub
Sub ShowTableInWebView
WebView1.Visible = True
WebView1.LoadHtml(DBUtils.ExecuteHtml(SQL1, _
"SELECT NameOfNote, NoteText FROM Notes" _
, Null, 0, True))
End Sub