Mendeteksi Regional Dan Language system di VB.Net

Dari :  http://tentangvb.blogspot.com/search?updated-min=2010-01-01T00:00:00-08:00&updated-max=2011-01-01T00:00:00-08:00&max-results=4 

Untuk mendeteksi Regional dan Language yang dipakai pada suatu mesin kita dapat memanfaatkan Class Culture, yang bisa kita akses melalui cara berikut ini,

dim CurrentCulture as my.application.culture.name

Mengetahui system Regional dan Language yang dipakai pada suatu mesin akan memudahkan kita dalam menentukan format tanggal dan Angka, sehingga Aplikasi yang kita buat diharapkan dapat lebih flexible, tanpa harus kita setting secara manual setiap kali aplikasi di Install pada mesin tertentu. berikut contoh lengkapnya bagaimana cara mendeteksi Regional dan Language yang aktiv pada suatu mesin. kode berikut ini diambil dari ( http://msdn.microsoft.com/en-us/library/486cdc73(v=VS.80).aspx ) dengan sedikit tambahan.

Private Sub TestChangeCulture()
        ' Store the current culture.
        Dim currentculture As String = My.Application.Culture.Name
        MsgBox("Current culture is " & currentculture)
        Dim Des30 As New Date(2005, 12, 30, 15, 15, 15)
        Dim myNumber As Double = 2000.5
        MsgBox("Date represented in id-ID culture: " & Des30)
        MsgBox("Number Format 2000.5 dalam format Indonesia jadi :" & FormatNumber(myNumber, 2, TriState.True, TriState.True))
        My.Application.ChangeCulture("en-US")
        MsgBox("Date represented in en-US culture: " & Des30)
        MsgBox("Number Format 2000.5 dalam format en_US jadi :" & FormatNumber(myNumber, 2, TriState.True, TriState.True))
        ' 1/1/2005 3:15:15 PM
        My.Application.ChangeCulture("")
        MsgBox("Date represented in invariant culture" & jan1)
        ' 01/01/2005 15:15:15
        ' Restore the culture.
        My.Application.ChangeCulture(currentculture)
    End Sub