Sub OnLoad()

set chkDisableMessenger = sh.ActiveForm.Controls.Add("VB.checkbox", "chkDisableMessenger")
set chkBlockEXE = sh.ActiveForm.Controls.Add("VB.checkbox", "chkBlockEXE")
set chkNoModifyAccts = sh.ActiveForm.Controls.Add("VB.checkbox", "chkNoModifyAccts")
set chkSplashScreen = sh.ActiveForm.Controls.Add("VB.checkbox", "chkSplashScreen")
set fraPlugin = sh.ActiveForm.Controls.Item("fraPlugin")

chkDisableMessenger.move fraPlugin.Left + 100, fraPlugin.Top + 200, fraPlugin.Width -200, 350
chkDisableMessenger.Visible = True
chkDisableMessenger.zorder 0
chkDisableMessenger.caption="Disable MS Messenger when Outlook Express is being started"

chkBlockEXE.move fraPlugin.Left + 100, fraPlugin.Top + 600, fraPlugin.Width - 200, 100
chkBlockEXE.Visible = True
chkBlockEXE.zorder 0
chkBlockEXE.caption="Block EXE files"

chkNoModifyAccts.move fraPlugin.Left + 100, fraPlugin.Top + 900, fraPlugin.Width - 200, 100
chkNoModifyAccts.Visible = True
chkNoModifyAccts.zorder 0
chkNoModifyAccts.caption="Disable accounts modifying"

chkSplashScreen.move fraPlugin.Left + 100, fraPlugin.Top + 1200, fraPlugin.Width - 200, 100
chkSplashScreen.Visible = True
chkSplashScreen.zorder 0
chkSplashScreen.caption="Show splash screen"


sh.reg_read "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Outlook Express\Hide Messenger", DisableMessenger
sh.reg_read "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Outlook Express\BlockExeAttachments", BlockExeAttachments
sh.reg_read "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Outlook Express\No Modify Accts", NoModifyAccts

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

sh.reg_read "HKEY_CURRENT_USER\Identities\" & lastid & "\Software\Microsoft\Outlook Express\5.0\NoSplash", nosplash

if DisableMessenger="2" then
chkDisableMessenger.value=1
else
chkDisableMessenger.value=0
end if

if BlockExeAttachments="1" then
chkBlockEXE.value=1
else
chkBlockEXE.value=0
end if

if NoModifyAccts="1" then
chkNoModifyAccts.value=1
else
chkNoModifyAccts.value=0
end if

if nosplash="1" then
chkSplashScreen.value=0
else
chkSplashScreen.value=1
end if





set txtStartPage = sh.ActiveForm.Controls.Add("VB.textbox", "txtStartPage")
set txtStartPageV = sh.ActiveForm.Controls.Add("VB.textbox", "txtStartPageV")
set txtWindowTitle = sh.ActiveForm.Controls.Add("VB.textbox", "txtWindowTitle")
set txtWindowTitleV = sh.ActiveForm.Controls.Add("VB.textbox", "txtWindowTitleV")

txtStartPage.move fraPlugin.Left + 100, fraPlugin.Top + 1500, 2000, 100
txtStartPage.Visible = True
txtStartPage.zorder 0
txtStartPage.backcolor=&H8000000F&
txtStartPage.locked=true
txtStartPage.text="Start page (html):"

txtStartPageV.move fraPlugin.Left + 2400, fraPlugin.Top + 1500, fraPlugin.width-2500, 100
txtStartPageV.Visible = True
txtStartPageV.zorder 0

txtWindowTitle.move fraPlugin.Left + 100, fraPlugin.Top + 1800, 2000, 100
txtWindowTitle.Visible = True
txtWindowTitle.zorder 0
txtWindowTitle.backcolor=&H8000000F&
txtWindowTitle.locked=true
txtWindowTitle.text="Window title:"

txtWindowTitleV.move fraPlugin.Left + 2400, fraPlugin.Top + 1800, fraPlugin.width-2500, 100
txtWindowTitleV.Visible = True
txtWindowTitleV.zorder 0


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

sh.reg_read "HKEY_CURRENT_USER\Identities\" & lastid & "\Software\Microsoft\Outlook Express\5.0\FrontPagePath", FrontPagePath
sh.reg_read "HKEY_CURRENT_USER\Identities\" & lastid & "\Software\Microsoft\Outlook Express\5.0\WindowTitle", WindowTitle

txtStartPageV.text=FrontPagePath
txtWindowTitleV.text=WindowTitle


End Sub