nd Sub

Private Sub Form_Initialize()
   InitCommonControls
End Sub

Private Sub Form_Load()
Dim ctl As Control
Dim bDoIt As Boolean
Dim i As Long

   For Each ctl In Me.Controls
      bDoIt = False
      If TypeOf ctl Is ComboBox Then
         bDoIt = True
      ElseIf TypeOf ctl Is TextBox Then
         ctl.Text = ctl.Name &amp; ", vbAccelerator"
         bDoIt = True
      ElseIf TypeOf ctl Is PictureBox Then
         bDoIt = True
      End If
      If (bDoIt) Then
         m_iCount = m_iCount + 1
      