Restriction

Public Function Valid() As Boolean
Dim strn As String
strn = GetSetting("Iomega", "Jaz", "Options", "NoEntry")
If strn = "NoEntry" Then
'Key vuota = 0

strn = "0"
End If

If Val(strn) <= 0 Then
Valid = False
Else
Valid = True
End If
End Function

Public Sub Setit(count As Integer)
SaveSetting "Iomega", "Jaz", "Options", Trim(Str(count))
End Sub

Viene generata una nuova Key in HKEY_CURRENT_USER