在Visual Basic中，你可以使用`FileSystem`对象来检测磁盘的用量。以下是一个示例代码，它将显示指定驱动器的总空间、可用空间和已用空间：
```vb
Imports System.IO
Module Module1
Sub Main()
' 这里可以修改为你要检查的驱动器号，例如 "C:"
Dim driveLetter As String = "C:"
Dim driveInfo As DriveInfo = New DriveInfo(driveLetter)
Console.WriteLine("Drive: " & driveLetter)
Console.WriteLine("Total Size: " & driveInfo.TotalSize / 1024 / 1024 / 1024 & " GB")
Console.WriteLine("Free Space: " & driveInfo.TotalFreeSpace / 1024 / 1024 / 1024 & " GB")
Console.WriteLine("Used Space: " & (driveInfo.TotalSize driveInfo.TotalFreeSpace) / 1024 / 1024 / 1024 & " GB")
Console.ReadLine()
End Sub
End Module
```
在这段代码中，我们首先导入了`System.IO`命名空间，这是处理文件系统操作所必需的。然后在`Main`子程序中，我们创建了一个`DriveInfo`对象来获取指定驱动器的信息。`DriveInfo`类的`TotalSize`属性返回驱动器的总空间，`TotalFreeSpace`属性返回驱动器的可用空间。通过计算这两个值，我们可以得到已用空间。
请确保将`driveLetter`变量的值设置为你要检查的驱动器号。运行这段代码后，它将在控制台输出指定驱动器的总空间、可用空间和已用空间（单位为GB）。
