Label3.Text = CStr(total) ' hasil kredit total yang diambil
</source>
Berikut ini adalah contoh lain dari Visual Basic .NET 2008 yang akan menyaring daftar Hard Drive di komputer ini. Dan variabel <code>ReadyDrives</code> akan menyimpan daftar Drive dan Harddisk di komputer ini yang tidak mengalami error. Contoh kode ini memerlukan Visual Basic 2008 atau versi Visual Basic yang mendukung teknologi LINQ.
<source lang="vbnet">
' Simpan daftar hard drive di variabel ReadyDrives.
Dim ReadyDrives = From drive In Global.System.IO.DriveInfo.GetDrives() _
Where drive.IsReady = True _
Select drive
' Pada point ini, ReadyDrives adalah suatu koleksi yang menyimpan daftar hard drive yang sudah siap.
</source>
Kode dibawah ini akan membuat sebuah panggilan ke sebuah prosedur di Windows API. Windows API adalah file-file sistem di Windows yang sekarang kita gunakan. File di Windows API dapat berisi beberapa prosedur yang tidak didukung oleh Visual Basic. Biasanya, File tersebut berekstensi .DLL.
<source lang="vbnet">
' Buat prosedur yang berdasarkan pada Windows API.
' Prosedur ini akan mematikan (Shut Down) Windows.
Public Declare Sub ShutDownWindows Lib "shell32.dll" Alias "ShutdownWindows"()
</source>
Kode dibawah ini akan menunjukkan 5 dialog box yang muncul dan hilang secara teratur setiap 1 detik.
<source lang="vbnet">
' Buat loop 'For...Next' yang akan menunjukkan dialog tersebut secara teratur.
For i As Integer = 1 To 5
MsgBox("Dialog ke " & i.ToString, MsgBoxStyle.Information, "Dialog ke " & i)
