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

[ALFREDVB]

ESTOY USANDO VB 6 . Y TAMBIEN SENTENCIAS SQL CON DAO Y DATAS.
DEBIDO A QUE TENGO ALGUNOS PROCEDIMIENTOS QUE SE ME REPITEN EN DOS FORMULARIOS, SE ME ESTA LLENANDO DE CODIGOS LOS DOS FORMULARIOS. ESTOS FUNCIONAN EN FORMA PARECIDA, CON EL INCOVENIENTE QUE DEBEN SER REFERIDOS A UN FORMULARIO ESPECIFICO. A CONTINUACION MENCIONO UNO DE ELLOS EL CUAL ESTA EN UN MODULO;

TENGO EL SIGUIENTE PROCEDIMIENTO EL CUAL DEBO UTILIZAR EN DOS FORMULARIOS, Y QUERIA SABER SI ES POSIBLE UTILIZARLO CON ARGUMENTO TIPO FORMULARIO:

'CODIGO PARA BORRAR REGISTROS SELECCIONADOS EN DBGRID
Public Sub BORRAREGISTROSELECC()
Dim I As Long
If DBGrid2.AllowDelete Then
Do While I < DBGrid2.SelBookmarks.Count
Data2.Recordset.Bookmark = DBGrid2.SelBookmarks(I)
Data2.Recordset.Delete
I = I + 1

Loop
End If
DBGrid2.Refresh
End Sub

SI ESTE PROCEDIMIENTO LO COLOCO EN EN EL CODIGO DEL FORMULARIO1 FUNCIONA BIEN, PERO SOLO EN EL. PERO SI LO LLAMO DESDE EL FORMULARIO2 ME EXIGE QUE TUVIERA MAS REFERENCIAS PARA QUE FUNCIONE.
POR LO CUAL LO PUSE EN UN MODULO, PERO ASI NO ME FUNCIONA EN NINGUNO DE LOS DOS FORMULARIOS.
CREO QUE LA SOLUCION ES PASAR COMO ARGUMENTO EL FORMULARIO EN QUE LO ESTE USANDO, PERO NO SE COMO APLICARLO. Y SI ES POSIBLE HACERLO.
CUALQUIER OPINION, MUCHAS GRACIAS.