Es posible pasar un formulario como argumento en un procedimiento y como?

[ALFREDVB]

UTILIZO LA COLECCION FORMS Y PARA REFERIRME A UN FORMULARIO ESPECIFICO USO SU INDICE : FORMS(0) ES EL FORM1 Y FORMS(1) ES EL FORM2.
EL PROCEDIMIENTO CON EL ARGUMENTO DEL INDICE DEL FORMULARIO (num), LO ESCRIBO EN UN MODULO Y QUEDA COMO A CONTINUACION:

'CODIGO PARA BORRAR REGISTROS SELECCIONADOS EN DBGRID
Public Sub BORRAREGISTROSELECC(num As Integer)

Dim I As Long
If Forms(num).DBGrid2.AllowDelete Then
Do While I < Forms(num).DBGrid2.SelBookmarks.Count
Forms(num).Data2.Recordset.Bookmark = Forms(num).DBGrid2.SelBookmarks(I)
Forms(num).Data2.Recordset.Delete
I = I + 1
Loop
End If
Forms(num).DBGrid2.Refresh
End Sub

ASI QUE SI APLICO EL PROCEDIMIENTO EN EL FORMULARIO 1 LO HAGO ASI:
BORRAREGISTROSELECC (0)
Y SI LO APLICO EN EL FORMULARIO 2 SE LLAMA ASI:
BORRAREGISTROSELECC (1)
ASI PODRIA UTLIZARLO EN CUALQUIER OTRO FORMULARIO SIENDO EL NUMERO QUE SEA. YA AHORRO EL ESCRIBIR CODIGO EN CADA FORMULARIO. ASI SOLO SE ESCRIBE EN EL MODULO.

GRACIAS POR LAS SUGERENCIAS, Y ESPERO QUE LE SIRVA A OTRAS PERSONAS QUE NO HALLEN UN EJEMPLO O EXPLICACION........BY