如何：重用工作组件
更新：2007 年 11 月
如果某个组件已经存在，并经过调试且工作正常，则最好在代码中使用此组件而不是开发另一个功能相同的组件。此类组件通常公开为类。若要重用它，请从该类创建一个对象。
示例
.NET Framework 提供了可以使用的组件的许多示例。其中一个组件是 System 命名空间中的 TimeZone 类。TimeZone 提供了允许检索有关当前计算机系统时区的信息的成员。
Public Sub examineTimeZone()
Dim tz As System.TimeZone = System.TimeZone.CurrentTimeZone
Dim s As String = "Current time zone is "
s &= CStr(tz.GetUtcOffset(Now).Hours) & " hours and "
s &= CStr(tz.GetUtcOffset(Now).Minutes) & " minutes "
s &= "different from UTC (coordinated universal time)"
s &= vbCrLf & "and is currently "
If tz.IsDaylightSavingTime(Now) = False Then s &= "not "
s &= "on ""summer time""."
MsgBox(s)
End Sub
第一个 Dim 语句 (Visual Basic) 声明一个类型为 TimeZone 的对象变量，并将由 CurrentTimeZone 属性返回的 TimeZone 对象分配给它。