Set 語句
將對象引用賦給一個variable或property，或者將對象引用與事件關聯。
Set objectvar = {objectexpression | New classname | Nothing}
-或者-
Set object.eventname = GetRef(procname)
參數
objectvar
必選項，變量或屬性名稱;符合標準變量命名約定。
objectexpression
可選項，與對象名稱一致的Expression,另一個相同object type、函數或方法的已聲明變量，它們返回相同對象類型的對象。
New
用于創建一個類的新實例的Keyword。如果 objectvar 包含一個對某個對象的引用，當一個新的引用被賦給這個對象之后，則這個引用將被釋放。New 關鍵僅用于創建一個class的實例。
classname
可選項. 創建的類名稱。使用 Class 語句定義類及其語句。
Nothing
可選項。斷開 objectvar 與任何指定對象或類的關聯。當沒有其他變量引用前面的引用對象時，將 objectvar 賦值為 Nothing 以釋放與前面的引用對象相關聯的系統或內存資源。
object
必選項。與 event 相關聯的對象名稱。
event
必選項。函數作用域的事件名稱。
procname
必選項。包含與event 相關聯的 Sub 或 Function 名稱的字符串。
說明
為了使其有效，objectvar 必須與賦值的對象類型相一致。
Dim, Private, Public, 或 ReDim 語句僅聲明一個引用對象的變量。在使用. Set 語句為一個具體對象賦值之前，沒有實際對象可以引用。
通常, 當您使用 Set 語句將一個對象引用賦給一個變量之前,不會創建那個變量的對象的副本。實際上,只創建了一個對象的引用。多個引用對象變量可以引用相同的對象。因為這些變量都是對象的引用，而不是對對象副本的引用，因此對象中所作的任何變化都可以在引用該對象的所有變量中反映出來。
Function ShowFreeSpace(drvPath) Dim fso, d, s Set fso = CreateObject("Scripting.FileSystemObject") Set d = fso.GetDrive(fso.GetDriveName(drvPath)) s = "Drive " UCase(drvPath) " - " s = s d.VolumeName "BR>" s = s "Free Space: " FormatNumber(d.FreeSpace/1024, 0) s = s " Kbytes" ShowFreeSpace = sEnd Function
利用 New 關鍵詞，您可以隨時創建一個類的實例，并將一個對象引用變量賦值給它。賦給類的實例的變量一定利用 Dim (或相似的語句)語句事先已經聲明。
有關使用 Set 語句關聯一個過程與對象的詳細信息，請參考 GetRef 函數的文檔。
