[VB6] Problem with Runtime Error 13: Type Mismatch

Hi,

I have a problem with error like at subject... I will thankful for any help...

I have a method:

Private Sub Image1_click()
Klik Image1
End Sub

and procedure:

Sub Klik(ByRef Image00 As Image)
Image00.visible = False
End Sub

Program is interrupted at calling procedure Klik.
I have also tried to change procedure Klik:

Sub Klik(ByRef Image0 As Variant)
Dim Image00 As Image
Set Image00 = Image0 <===== error
Image00.visible = False
Set Image0 = Image00
End Sub

or

Sub Klik(ByRef Image0 As Object)
Dim Image00 As Image
Set Image00 = Image0 <===== error
Image00.visible = False
Set Image0 = Image00
End Sub


Does anybody know what should I do with that?

The error message indicates image0 is not an image object.

But in earlier version, what I have written above, the procedure Klik was:

Sub Klik(ByRef Image00 As Image)
Image00.visible = False
End Sub

And it also didn't work. Program interrupted at calling this procedure with teh same error.

Both hint that you are not passing an image object as the argument to your function.

why not passing the image as image??