Sub SetAutoStartAppOn(turnON As Boolean)
Dim checkFile As String = "autoStart.dat"
If turnON Then
If Not (File.Exists(File.DirInternal,checkFile)) Then
File.WriteString(File.DirInternal,checkFile,"on")
End If
Else
If File.Exists(File.DirInternal,checkFile) Then
File.Delete(File.DirInternal,checkFile)
End If
End If
End Sub
Public Sub GetAutoStartAppOn() As Boolean
Dim checkFile As String = "autoStart.dat"
If File.Exists(File.DirInternal,checkFile) Then
Return True
Else
Return False
End If
End Sub