' This program reads a table of program names, run dates,
'   and run intervals in days and if this is the day the program,
'   the program is done an the run date is incremented by the
'   interval

Declare Sub LoadLibrary Lib "Kernel" (ByVal LibName$)
Declare Function SystemParametersInfo Lib "User" (ByVal uAction As Integer, ByVal uParam As Integer, lpvParam As Any, ByVal fuWinIni As Integer) As Integer

Declare Function WritePrivateProfileString Lib "KERNEL" (ByVal lpszSectionName As String, ByVal lpszKeyName As String, ByVal nString As String, ByVal lpszFileName As String) As Integer

Global FileName As String

Sub Main ()

    LoadLibrary "VBRUN200.DLL"  ' loads the vb runtime library into
                            ' memory to speed loading of all vb
                            ' programs run here after

    If Command$ = "" Then
        MsgBox "Must include Filename on Command Line", 48
        End
    End If

    FileName = Command$

    RunDaily.Show ' run main program

End Sub