اظهار اسم النظام + اصداره على سطح المكتب

كود :
[color=#000000][COLOR=#0000bb] [/color][color=#007700]Public [/color][color=#0000bb]Sub ShowWindowsVersionOnDesktop[/color][color=#007700]([/color][color=#0000bb]ByVal Enable [/color][color=#007700]As [/color][color=#0000bb]Boolean[/color][COLOR=#007700]) 

        [/COLOR][color=#0000bb]Select [/color][color=#007700]Case [/color][COLOR=#0000bb]Enable 

            [/COLOR][color=#007700]Case [/color][COLOR=#0000bb]True 

                My[/COLOR][color=#007700].[/color][color=#0000bb]Computer[/color][color=#007700].[/color][color=#0000bb]Registry[/color][color=#007700].[/color][color=#0000bb]SetValue[/color][color=#007700]([/color][color=#dd0000]"HKEY_CURRENT_USER\Control Panel\Desktop"[/color][color=#007700], [/color][color=#dd0000]"PaintDesktopVersion"[/color][color=#007700], [/color][color=#0000bb]1[/color][color=#007700], [/color][color=#0000bb]Microsoft[/color][color=#007700].[/color][color=#0000bb]Win32[/color][color=#007700].[/color][color=#0000bb]RegistryValueKind[/color][color=#007700].[/color][color=#0000bb]DWord[/color][COLOR=#007700]) 

            Case [/COLOR][COLOR=#0000bb]False 

                My[/COLOR][color=#007700].[/color][color=#0000bb]Computer[/color][color=#007700].[/color][color=#0000bb]Registry[/color][color=#007700].[/color][color=#0000bb]SetValue[/color][color=#007700]([/color][color=#dd0000]"HKEY_CURRENT_USER\Control Panel\Desktop"[/color][color=#007700], [/color][color=#dd0000]"PaintDesktopVersion"[/color][color=#007700], [/color][color=#0000bb]0[/color][color=#007700], [/color][color=#0000bb]Microsoft[/color][color=#007700].[/color][color=#0000bb]Win32[/color][color=#007700].[/color][color=#0000bb]RegistryValueKind[/color][color=#007700].[/color][color=#0000bb]DWord[/color][COLOR=#007700]) 

        [/COLOR][COLOR=#0000bb]End Select 

    End Sub  

[/COLOR][/COLOR]