VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsOptions"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Public file As String

Public Property Get Udp() As Boolean
    Udp = CBool(Val(ReadINI(file, "Options", "Udp")))
End Property

Public Property Let Udp(ByVal v As Boolean)
    WriteINI file, "Options", "Udp", Abs(v)
End Property

Public Property Get Caching() As Boolean
    Caching = CBool(Val(ReadINI(file, "Options", "Caching")))
End Property

Public Property Let Caching(ByVal v As Boolean)
    WriteINI file, "Options", "Caching", Abs(v)
End Property

Public Property Get Spawned() As Boolean
    Spawned = CBool(Val(ReadINI(file, "Options", "Spawned")))
End Property

Public Property Let Spawned(ByVal v As Boolean)
    WriteINI file, "Options", "Spawned", Abs(v)
End Property

Public Property Get Proxied() As Boolean
    Proxied = CBool(Val(ReadINI(file, "Options", "Proxied")))
End Property

Public Property Let Proxied(ByVal v As Boolean)
    WriteINI file, "Options", "Proxied", Abs(v)
End Property

Public Property Get SendPing() As Boolean
    SendPing = CBool(Val(ReadINI(file, "Options", "SendPing")))
End Property

Public Property Let SendPing(ByVal v As Boolean)
    WriteINI file, "Options", "SendPing", Abs(v)
End Property

Public Property Get ReplyPing() As Boolean
    ReplyPing = CBool(Val(ReadINI(file, "Options", "ReplyPing")))
End Property

Public Property Let ReplyPing(ByVal v As Boolean)
    WriteINI file, "Options", "ReplyPing", Abs(v)
End Property

Public Property Get ResetPassword() As Boolean
    ResetPassword = CBool(Val(ReadINI(file, "Options", "ResetPassword")))
End Property

Public Property Let ResetPassword(ByVal v As Boolean)
    WriteINI file, "Options", "ResetPassword", Abs(v)
End Property
