Mengetahui Versi Windows

Buat Project Baru Dengan Form DidalamNya.,.,.,
 kemudian Tambahkan Kontrol Label (untuk menampung hasilnya) ke dalam dorm tersebut
lalu ketik Kode Dibawah Ini Di Bagian Form_Load

Dim Win As Object
For Each Win In GetObject("winmgmts:").InstancesOf("Win32_OperatingSystem")
Label1.Caption = Win.Caption & vbCrLf & Win.CSDVersion & vbCrLf & "Version : " & Win.Version & vbCrLf & "Build : " & Win.BuildNumber
Next