Font - Add-Ins Memanipulasi font pada bentuk atau kontrol

Dim currentform As Object
Dim c As Object
Set currentform = gobjIDEAppInst.ActiveProject.ActiveForm
Set c = currentform.ControlTemplates.Add("label")
With c
.Properties("Caption") = "Xtreme Software. The Creators of Digital Poetry!"
.Properties("Font")!Bold = True
.Properties("Font")!Italic = True
.Properties("Font")!Strikethrough = False
.Properties("Font")!Underline = True
.Properties("Font")!Name = "Arial"
.Properties("Font")!Size = 10
.Properties("Autosize") = True
.Properties("left") = (currentform.Properties("width") - .Properties("width")) / 2
End With