Не работает ActiveControl - VB

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

Ничего не пойму. В VB6 не работает ActiveControl.Name - пишет ошибку "91, Переменная объекта или переменная блока управления не установлена". Причем где-нибудь в VBA то же самое работает прекрасно!

Решение задачи: «Не работает ActiveControl»

textual
                            Листинг программы 
                        

                            Private Sub Рисунок1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
MsgBox ActiveControl.Name
End Sub
                        