VB Code:
Dim temppath As String, slength As Integer, strFilename As String, strTags As String
Dim tagfile As SHELLEXECUTEINFO
temppath = Space(255)
slength = GetTempPath(255, temppath)
temppath = left(temppath, slength)
strFilename = temppath & "tmptags.html"
strTags = Tags.Value
If Dir(strFilename) <> "" Then Kill (strFilename)
Open strFilename For Output As #1
Write #1, strTags
Close #1
With tagfile
.cbSize = Len(tagfile)
.hwnd = Me.hwnd
.lpDirectory = temppath
.lpFile = temppath & "tmptags.html"
.lpVerb = "open"
.nShow = SW_SHOWNORMAL
End With
Call ShellExecuteEx(tagfile)