两个参数:一个是数组名,一个是传递的长度Function thename(ByVal imgFrom As Image) As Stringthename = imgFrom.NameEnd FunctionPrivate Sub Image1_Click()MsgBox thename(Image1)End Sub