也 许 你 在 软 件 中 需 要 一 个“ 关 于” 对 话 框， 如 果 要 求 不 高 的 话， 可 以 不 必 再 用 一 个 窗 体 做“ 关 于” 对 话 框， 可 利 用 系 统 的 对 话 框， 虽 然 其 中 含 有 微 软 的 一 些 信 息， 但 你 还 是 可 以 添 加 自 己 的 某 些 信 息， 系 统 提 供 的“ 关 于” 对 话 框 还 有 内 存、 资 源 等 有 关 信 息， 你 不 需 再 为 这 些 信 息 写 任 何 代 码。 要 使 用 系 统 的“ 关 于” 对 话 框， 只 需 声 明API 函 数ShellAbout， 然 后 直 接 调 用 即 可， 例 如： 
　　
　　' 声 明API 函 数
　　Private Declare Function 
　　ShellAbout Lib "shell32.dll" _
　　Alias "ShellAbout" (ByVal hwnd 
　　As Long, ByVal szApp As String, _
　　ByVal szOtherStuff As String, 
　　ByVal hIcon As Long) As Long
　　
　　在 需 要 的 地 方 使 用 它：
　　Private Sub ABOUTCd_Click()
　　x = ShellAbout(Form1.hwnd, " VB编程乐园网站指南", "博士电脑软件工作室", Form1.Icon)
　　End Sub