Passer une variable form a une sub ( j'en ai marre )

bonjour tt le monde,
quand je fais passer une form comme paramettre dans une sub il y a une erreur d'incompatibilité.en gros je fais:
dans une form
var1=me.name
call sub(var1)

dans un module
sub essai(var2 as form)
forms(var2).hide
end sub

Je sens que je vais peter les plombs aidez-moi svp

'Appel de la procédure ... Call essai(Me.Name) 'Ds ton module Sub essai(var2 As String) For i = 0 To Forms.Count - 1 If Forms(i).Name = var2 Then 'Unload Forms(i) Forms(i).Hide Exit For End If Next End Sub

A+

Schouly (@skynet.be)