control.Object.Font.Size = 20

--
Tim Zych
SF, CA

"TONY" wrote in message
...
This fragment of code i am creating a lable, but when I attempt to change
the
font size in the WITH BLOCK. Could someone point out what I am doing
wrong.

Set control = OLEObjects.Add(ClassType:="Forms.Label.1", Link:=False, _
DisplayAsIcon:=False, Left:=cw * 3, Top:=rh * 2, Width:=cw * 6,
Height:= _
rh)



With control


End With