Mengetahui Informasi Regional Di Visual Basic

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 :

Pada 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

Pada 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

Semoga dapat membantu teman-teman semua .
Bila ada kesulitan, boleh berkomentar di bawah ini atau juga bisa dari email saya di ciscoagus99@gmail.com