Sub App_Start
reg.New1
reg.RootKey(reg.rtCurrentUser)
key = "Software\My Application"
number = reg.GetValue(key, "Number Of Items") 'Number Of Items is
of type REG_DWORD
name = reg.GetValue(key, "User Name") 'User Name is of type REG_SZ
files() = reg.GetValue(key, "RecentFiles") 'Recent file is of type
REG_MULTI_SZ (multi - string)
binary() = reg.GetValue(key,"BinaryValue") 'BinaryValue is of type
REG_BINARY
End Sub