Есть на форме контрол MyListBox типа ListBox
в процедуре пишем
Dim localListBox As ListBox
Set localListBox=MyListBox
говорит TypeMismatch жму Degug подвожу мыш к MyListBox а она говорит NULL
И как мне быть?

Ребята, я наверное вас уже достал.
Попробуйте у себя этот код:

Private Sub CommandButton1_Click()
designtimeListBox.AddItem("123")
designtimeListBox.AddItem("345")
designtimeListBox.ListIndex=0
Test (designtimeListBox)
'Test1()
End Sub
Sub Test(runtimeListBox As ListBox) 'ByRef ByVal ничего не дает
MsgBox (CStr(runtimeListBox.ListCount))
End Sub
Sub Test1()
Dim runtimeListBox As ListBox
Set runtimeListBox = designTimeListBox
MsgBox (CStr(runtimeListBox.ListCount))
End Sub

После того как я добавил строку
designtimeListBox.ListIndex=0
начала вылетать ошибка 424 Object Required

Пробуя попеременке тестовые процедуры вылетают ошибки.
Как правильно надо делать подобные процедуры?

As New ListBox - говорит неправильное использование New
As VB.ListBox - VB нету есть только VBA

Знакомый пробывал на VB и все работало а на VBA у меня не идет

Ребята, я наверное вас уже достал.
Попробуйте у себя этот код:

Private Sub CommandButton1_Click()
designtimeListBox.AddItem("123")
designtimeListBox.AddItem("345")
designtimeListBox.ListIndex=0
Test (designtimeListBox)
'Test1()
End Sub
Sub Test(runtimeListBox As ListBox) 'ByRef ByVal ничего не дает
MsgBox (CStr(runtimeListBox.ListCount))
End Sub
Sub Test1()
Dim runtimeListBox As ListBox
Set runtimeListBox = designTimeListBox
MsgBox (CStr(runtimeListBox.ListCount))
End Sub

После того как я добавил строку
designtimeListBox.ListIndex=0
начала вылетать ошибка 424 Object Required

Пробуя попеременке тестовые процедуры вылетают ошибки.
Как правильно надо делать подобные процедуры?

As New ListBox - говорит неправильное использование New
As VB.ListBox - VB нету есть только VBA

Знакомый пробывал на VB и все работало а на VBA у меня не идет