Informasi Regional

Setiap komputer memiliki pengaturan regional yang berbeda (Control Panel > Regional and Language Options). Jika Anda membutuhkan informasi regional tersebut untuk kebutuhan aplikasi, berikut contoh penggunaannya.
Buat Project baru dengan sebuah Form didalamnya. Di dalam Form buatlah sebuah kontrol TextBox (Multiline=True). Lalu di bagian 'Form_Load' ketikkan kode berikut :

[ VB 6.0 ]

Dim Reg As Object
Set Reg = CreateObject("WScript.Shell")

Dim s As String
s = "Negara = " & Reg.RegRead("HKCU\Control Panel\International\sCountry") & vbCrLf
s = s & "Simbol Mata Uang = " & Reg.RegRead("HKCU\Control Panel\International\sCurrency") & vbCrLf
s = s & "Pemisah Ribuan = " & Reg.RegRead("HKCU\Control Panel\International\sThousand") & vbCrLf
s = s & "Pemisah Desimal = " & Reg.RegRead("HKCU\Control Panel\International\sDecimal") & vbCrLf
s = s & "Pemisah Tanggal = " & Reg.RegRead("HKCU\Control Panel\International\sDate") & vbCrLf
s = s & "Pemisah Jam = " & Reg.RegRead("HKCU\Control Panel\International\sTime") & vbCrLf

Text1.Text = s

[ VB .NET ]

Dim Reg As Object = CreateObject("WScript.Shell")

Dim s As String
s = "Negara = " & Reg.RegRead("HKCU\Control Panel\International\sCountry") & vbCrLf
s &= "Simbol Mata Uang = " & Reg.RegRead("HKCU\Control Panel\International\sCurrency") & vbCrLf
s &= "Pemisah Ribuan = " & Reg.RegRead("HKCU\Control Panel\International\sThousand") & vbCrLf
s &= "Pemisah Desimal = " & Reg.RegRead("HKCU\Control Panel\International\sDecimal") & vbCrLf
s &= "Pemisah Tanggal = " & Reg.RegRead("HKCU\Control Panel\International\sDate") & vbCrLf
s &= "Pemisah Jam = " & Reg.RegRead("HKCU\Control Panel\International\sTime") & vbCrLf

TextBox1.Text = s