Modeless userform with Initialize event fails

[shg]

I have a modeless userform that works great (I use the default instance):

frmHighlight.Show vbModeless

I just just added an initialize event:

Private Sub UserForm_Initialize()
  Set oCol = New Collection

  oCol.Add Array(vbNullString, False, vbBlack)  ' dummy for sorting
  With Me.txtInp
    oCol.Add Array(.Value, .Font.Bold, .Font.Color)
  End With
End Sub

oCol is a collection object declared at the top of the module; it's purpose is to keep a history of form states that a spin button can ratchet through.

Now I get a runtime error 438 on the .Show line: "Object doesn't support this property or method". If I comment out the initialize event, it works fine again.

Anyone see the error of my ways?

 

[GWteB]

Just guessing: change .font.bold into .font.style

 

[Fluff]

What is txtInp?
If it's a textbox there is no .Font.Color property, it should be .ForeColor

 

[shg]

@GWteB: Thanks for that. Font.Bold is used elsewhere without problems, and shows up in IntelliSense.

@Fluff: BINGO! Brain cramp, thank you.

 

[GWteB]

It has to be ForeColor. .Font.Color does not exist .Font.Bold does.

- edit-

 

[Fluff]

Glad we could help & thanks for the feedback

 

[shg]

Perfect now, thank you both again.