Sub OnApply()
set chkDisableMessenger=sh.ActiveForm.Controls.Item( "chkDisableMessenger")
set chkBlockEXE=sh.ActiveForm.Controls.Item( "chkBlockEXE")
set chkNoModifyAccts=sh.ActiveForm.Controls.Item( "chkNoModifyAccts")
set chkSplashScreen=sh.ActiveForm.Controls.Item( "chkSplashScreen")

if chkDisableMessenger.value=1 then
sh.reg_write "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Outlook Express\Hide Messenger","2","REG_DWORD"
else
sh.reg_write "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Outlook Express\Hide Messenger","0","REG_DWORD"
end if

if chkBlockEXE.value=1 then
sh.reg_write "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Outlook Express\BlockExeAttachments","1","REG_DWORD"
else
sh.reg_write "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Outlook Express\BlockExeAttachments","0","REG_DWORD"
end if

if chkNoModifyAccts.value=1 then
sh.reg_write "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Outlook Express\No Modify Accts","1","REG_DWORD"
else
sh.reg_write "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Outlook Express\No Modify Accts","0","REG_DWORD"
end if

if chkSplashScreen.value=1 then
sh.reg_read "HKEY_CURRENT_USER\Identities\Last User ID", lastid
sh.reg_delete "HKEY_CURRENT_USER\Identities\" & lastid & "\Software\Microsoft\Outlook Express\5.0\NoSplash"
else
sh.reg_read "HKEY_CURRENT_USER\Identities\Last User ID", lastid
sh.reg_write "HKEY_CURRENT_USER\Identities\" & lastid & "\Software\Microsoft\Outlook Express\5.0\NoSplash", "1", "REG_DWORD"
end if


set txtStartPageV = sh.ActiveForm.Controls.Item("txtStartPageV")
set txtWindowTitleV = sh.ActiveForm.Controls.Item("txtWindowTitleV")

sh.reg_read "HKEY_CURRENT_USER\Identities\Last User ID", lastid

sh.reg_write "HKEY_CURRENT_USER\Identities\" & lastid & "\Software\Microsoft\Outlook Express\5.0\FrontPagePath", txtStartPageV.text, "REG_SZ"
sh.reg_write "HKEY_CURRENT_USER\Identities\" & lastid & "\Software\Microsoft\Outlook Express\5.0\WindowTitle", txtWindowTitleV.text, "REG_SZ"


End Sub