Imports System.management
 
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Try
            Dim searcher As New ManagementObjectSearcher( _
                "root\CIMV2", _
                "SELECT * FROM Win32_OperatingSystem")
 
            For Each queryObj As ManagementObject In searcher.Get()
 
                If queryObj("MUILanguages") Is Nothing Then
                    TextBox1.Text = queryObj("MUILanguages")
                Else
                    Dim arrMUILanguages As String()
                    arrMUILanguages = queryObj("MUILanguages")
                    For Each arrValue As String In arrMUILanguages
                        Console.WriteLine("MUILanguages: {0}", arrValue)
                        TextBox1.Text = TextBox1.Text + arrValue
                    Next
                End If
            Next
        Catch err As ManagementException
            MessageBox.Show("An error occurred while querying for WMI data: " & _
              err.Message)
        End Try
 
    End Sub
End Class