私自身で書き下ろしたものとあちこちの Web からコピーしてきて書き直したものの両方が載せてあります。
無保証です。利用はご自身の責任の元でお願いします。

Windows 2000 + VB5 で動作確認しています。

ソースコード	用途	使用 API	更新日
CloseFolders.bas	表示されているフォルダをすべて閉じる。	EnumWindows IsWindowVisible SendMessage GetClassName	2004-12-28
cmd.bas	OCX を利用せずに"ファイルを開く"ダイアログボックスを使う。	GetOpenFileName GetSaveFileName	2004-12-28
CPUusage.cls	CPU 使用率を知る。	GetModuleHandle GetProcAddress NtQuerySystemInformation RegOpenKey RegCloseKey RegQueryValueEx	2005-5-16
GetFileNames.bas	Drag & Drop の際、コマンドラインに渡された複数のファイル名を解決。	-	2004-12-28
StopWatch.cls	時間経過を測定。	-	2004-12-28
StringEachLine.cls	文字列の一行ずつを取得。	-	2004-12-28
TaskTray.bas	タスクトレイの操作。	Shell_NotifyIconA	2004-12-28
WinShutDown.bas	Windows のシャットダウン及び再起動。	ExitWindowsEx GetVersionEx GetCurrentProcess OpenProcessToken LookupPrivilegeValue AdjustTokenPrivileges	2004-12-28
CdTrayOpenClose.bas	CD トレイの開閉。	mciSendString	2005-5-9

ソースのダウンロードは、右クリックメニューの"対象をファイルに保存"からどうぞ。