Public Sub PlayBackgroundSounds(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Play_Background_Sounds", "Yes")
Case False
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Play_Background_Sounds", "no")
End Select
End Sub
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Play_Background_Sounds", "Yes")
Case False
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Play_Background_Sounds", "no")
End Select
End Sub
تعليقات
إرسال تعليق