當要應用一個控件的字體到另一控件時，最直接的方法就是直接賦值：
SetText2.Font=Text1.Font
但多數情況下這種方法並不奏效，因為這實際上是將同一字體的引用分配給了2個控件。換言之，當隨後修改其中之一控件的字體時，另外一個控件也受到影響。因此，要實現我們的目的，需要做的就是克隆字體對象並賦值給需要的控件。
最簡單的克隆字體的方法是手工地拷貝所有單獨的字體屬性，就象下面一樣：
FunctionCloneFont(FontAsStdFont)AsStdFont
SetCloneFont=NewStdFont
CloneFont.Name=Font.Name
CloneFont.Size=Font.Size
CloneFont.Bold=Font.Bold
CloneFont.Italic=Font.Italic
CloneFont.Underline=Font.Underline
CloneFont.Strikethrough=Font.Strikethrough
EndFunction
'函數的應用
SetText2.Font=CloneFont(Text1.Font)
如果使用VB6，就可以使用PropertyBag對象快速拷貝所有字體屬性，並且代碼會很簡練、速度也快2倍：
FunctionCloneFont(FontAsStdFont)AsStdFont
DimpbAsNewPropertyBag
'拷貝字體到PropertyBag對象中
pb.WriteProperty"Font",Font
'恢復字體對象到新控件
SetCloneFont=pb.ReadProperty("Font")
EndFunction
但是我們還能進一步地對代碼進行優化，方法就是使用可被所有StdFont對象識別的隱藏IFont接口。這個接口具有一個Clone方法，用它就可以精確地實現我們的目的。它以非正常方式執行：創建一個克隆Font對象，然後返回相應的引用。這可能是實現克隆目的的最簡潔代碼了，而且，執行速度也是這裡列舉的3種方法中最快的一個，要比使用PropertyBag對象的方法快大約3倍左右。來看看具體代碼：
FunctionCloneFont(FontAsIFont)AsStdFont
Font.CloneCloneFont
EndFunction
->
