static void Main(string[] args)
{
    string str = "Th!s $tri^g c@n$ist $pecial ch@rs";
    Match match = Regex.Match(str, "[^a-z0-9]",
            RegexOptions.IgnoreCase);
    while (match.Success)
    {
        string key = match.Value;
        Console.Write(key);
        match = match.NextMatch();
    }
    Console.ReadLine();
}

Shared Sub Main(ByVal args() As String)
    Dim str As String = "Th!s $tri^g c@n$ist $pecial ch@rs"
    Dim match As Match = Regex.Match(str, "[^a-z0-9]", _
RegexOptions.IgnoreCase)
    Do While match.Success
        Dim key As String = match.Value
        Console.Write(key)
        match = match.NextMatch()
    Loop
    Console.ReadLine()
End Sub

using System;
using System.Management;

namespace ConsoleApplication1
{
class Program
{
    public static void Main()
    {
        string winos = "Select Name from Win32_OperatingSystem";
        ManagementObjectSearcher mos =
            new ManagementObjectSearcher(winos);           
        foreach (ManagementObject mo in mos.Get())
        {
            Console.WriteLine("OS Name:  {0}", mo["Name"]);
        }
        Console.ReadLine();
    }
}
}

Imports System
Imports System.Management

Namespace ConsoleApplication1
Friend Class Program
    Public Shared Sub Main()
        Dim winos As String = "Select Name from Win32_OperatingSystem"
        Dim mos As New ManagementObjectSearcher(winos)
        For Each mo As ManagementObject In mos.Get()
            Console.WriteLine("OS Name:  {0}", mo("Name"))
        Next mo
        Console.ReadLine()
    End Sub
End Class
End Namespace