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.
File7=@msvbvm60.dll,$(WinSysPathSysFile),$(DLLSelfRegister),,5/27/00 12:00:00 AM,1388544,6.0.88.77
File8=@disclaimer.txt,$(WinSysPath),,,6/12/01 1:26:00 PM,
.Set Cabinet=on
.Set Compress=on
"disclaimer.txt"
Private Sub ShowDisclaimer()
If Not gfNoUserInput Then
frmDisclaimer.Show vbModal
End If
End Sub
Private Sub cmdNext_Click()
Unload Me
frmSetup1.ShowWelcomeForm
End Sub
Private Sub CmdClose_Click()
ExitSetup Me, gintRET_EXIT
End Sub
Private Sub Form_Load()
Option1(1).Value = True
cmdNext.Enabled = False
Text1.Text = gettext(gstrWinSysDir & "disclaimer.txt")
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
HandleFormQueryUnload UnloadMode, Cancel, Me
End Sub
Private Sub Option1_Click(Index As Integer)
If Option1(0).Value = True Then
cmdNext.Enabled = True
Else
cmdNext.Enabled = False
End If
End Sub
Private Function gettext(FileName As String) As String
FF = FreeFile
Open FileName For Binary As #FF
ReadText$ = String$(LOF(FF), 32)
Get #FF, 1, ReadText$
Close #FF
gettext = ReadText$
End Function