递归调用，里面的函数怎么不需要参数了?

Private Function TranslateColor(ByVal oClr As OLE_COLOR, _
                        Optional hPal As Long = 0) As Long
     If OleTranslateColor(oClr, hPal, TranslateColor) Then
        TranslateColor = CLR_INVALID
    End If
End Function

递归调用，里面的函数怎么不需要参数了?
--------------------编程问答-------------------- 友情帮顶0分贴。 

为什么您的帖子没有人回答呢？其实问题不难的，请不要吝惜一点分数。 
友情提示： 
注册账户200分 
结贴还一半 
首次发贴不能给分，但是再发一贴就能给分。 
问题请描述清楚。 
多多google和baidu。 
一窍不通先补基础 
复杂问题多给分，完美解决得花钱。 
重金之下有勇夫。 
无分无钱无真相，高分重金齐帮忙。 

祝你得到满意的答案。 --------------------编程问答-------------------- 因为参数是可选的啦。 --------------------编程问答-------------------- 谁说我不给分啊，可是每次搞，系统就提示我没权利给那么多分，连五分都不能给。如果只能给一两分还不如不给了 --------------------编程问答-------------------- 友情帮顶

补充：VB ,  基础类