Public Sub FullScreen(ByVal Enable As Boolean)
If Enable = True Then
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "FullScreen", "Yes")
Else
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "FullScreen", "no")
End If
End Sub
If Enable = True Then
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "FullScreen", "Yes")
Else
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "FullScreen", "no")
End If
End Sub
تعليقات
إرسال تعليق