Problem with CaptionMetrics

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

When I write these lines of code:
  Set SubCategory = Category.AddChildItem(PropertyItemFont, "Font", Me.Font)
  SubCategory.CaptionMetrics.ForeColor = vbBlue
All is OK.
But when I write these lines of code:
  Set SubCategory = Category.AddChildItem(PropertyItemFont, "Font", Me.Font)
  SubCategory.CaptionMetrics.Font.Bold = True
I recieve error message: "Object variable or With block variable not set" 
Where is my fault?

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
Miroslaw Members Profile Send Private Message Find Members Posts Add to Buddy List Newbie Joined: 14 November 2005 Location: Ukraine Status: Offline Points: 5	Post Options Post Reply Quote Miroslaw Report Post Thanks(0) Quote Reply Topic: Problem with CaptionMetrics Posted: 15 November 2005 at 5:06am
	When I write these lines of code: Set SubCategory = Category.AddChildItem(PropertyItemFont, "Font", Me.Font) SubCategory.CaptionMetrics.ForeColor = vbBlue All is OK. But when I write these lines of code: Set SubCategory = Category.AddChildItem(PropertyItemFont, "Font", Me.Font) SubCategory.CaptionMetrics.Font.Bold = True I recieve error message: "Object variable or With block variable not set" Where is my fault?