Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Private Sub Command1_Click()
Dim sHTML As String
Dim sBGColor As String
Dim sAniGif As String
sBGColor = "blue" 'change this string
sAniGif = "c:\anigif.gif" 'change this string
sHTML = "about:<html><body bgcolor =" & _
Quote(sBGColor) & "><img src =" & _
Quote(sAniGif) & "></html>"
WebBrowser1.Navigate2 sHTML
End Sub
'Here's the Quote function for completeness sake
Public Function Quote(sString As String) As String
Quote = Chr(34) & sString & Chr(34)
End Function