code to apply control formatting

[tariq1]

Hi,
Thank you in advance for your assistance.
Within a form I have a command button with the following code which


should apply consistent formatting to each control within the form.
It however dos not quite work, what am I missing here?

Private Sub Command29_Click()
Dim i As Integer
Dim c As Control
For i = 0 To Me.Controls.Count - 1
Set c = Me.Controls(i)
c.GridlineStyleRight = Solid
Next
End Sub

[pbaldy]

Wht does "not quite work" mean exactly?

[tariq1]

Hi,

Thank you for your prompt response. The code should apply the GridStyle = Solid to all the controls within the form.
The formatting has not been applied to any of the controls.

[pbaldy]

I'm not clear on what that format is. This works:

  Dim c                  As Control
  For Each c In Me.Controls

    'c.GridlineStyleRight = 1
    c.BackColor = vbYellow
  Next c

In real code I'd limit it to the appropriate controls.