Ошибка Object doesn't support this property or method - VB

Формулировка задачи:

Здравствуйте! Сия ошибка возникает в связи вот с чем... прошу не обижать понимаю, что коряво я написал- нужда :-( Существуют две почти одинаковые формы в проекте (по наследству его получил), надо обратиться к ЭУ по имени With frm.msfgListSpec - тут и ругается VB (его конечно можно понять, но не хочется один и тот же код в двух формах писать) Ваше мнение господа?

                    Листинг программы
                
 
                        
                          
                    
Public Sub AnyMsfgListSpec_Click(frm As Object)
With frm.msfgListSpec
 If .MouseCol = 0 Then 'Пользователь выбрал мышью поле Специальность
   frm.cmbData(4).Move .CellLeft + .Left + frm.frame6.Left, .CellTop + .Top + frm.frame6.Top, .CellWidth    ', .CellHeight
   frm.cmbData(4).ZOrder 0
   frm.cmbData(4).Visible = True
 End If
 If .MouseCol = 1 Then 'Пользователь выбрал мышью поле Отделение
   frm.cmbData(5).Move .CellLeft + .Left + frm.frame6.Left, .CellTop + .Top + frm.frame6.Top, .CellWidth    ', .CellHeight
   frm.cmbData(5).ZOrder 0
   frm.cmbData(5).Visible = True
 End If
 If .MouseCol = 2 Then 'Пользователь выбрал мышью поле Основа
   frm.cmbData(6).Move .CellLeft + .Left + frm.frame6.Left, .CellTop + .Top + frm.frame6.Top, .CellWidth    ', .CellHeight
   frm.cmbData(6).ZOrder 0
   frm.cmbData(6).Visible = True
 End If
End With
End Sub

Решение задачи: «Ошибка Object doesn't support this property or method»

textual
                            Листинг программы 
                        
Private Sub msfgListSpec_Click()
 AnyMsfgListSpec_Click (Me)
End Sub