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

[pkj]

Lo más facil segun lo tienes es inlcuir el form en la sub:

'CODIGO PARA BORRAR REGISTROS SELECCIONADOS EN DBGRID

'DEL FORM2 y el data tambien del form2 imagino

Public Sub BORRAREGISTROSELECC()
Dim I As Long
If Form2.DBGrid2.AllowDelete Then
Do While I < Form2.DBGrid2.SelBookmarks.Count
Form2.Data2.Recordset.Bookmark = Form2.DBGrid2.SelBookmarks(I)
Form2.Data2.Recordset.Delete
I = I + 1

Loop
End If
Form2.DBGrid2.Refresh
End Sub

Si quieres declarar un formulario o control en la sub es simple:

Sub BORRAREGISTROSELECC(DBGrid2 As DBGrid, Data2 As Data)

y la ejecutas desde el form que contiene los controles:
borraregistroselecc dbgrid2, data2
o desde otro sitio
borraregistro form2.dbgrid2, form2.data2

Como aproximadamente dice un compañero por aquí, en informática hay 1000 maneras de hacer lo mismo.

Que se de bien.