Pasar el nombre de un formulario como variable a funcion y trabajarlo

[Pax-Man]

Pues como dice el titulo, necesito pasar el nombre de un formulario y trabajarlo dentro de una funcion... Ej.

Código vb:

Public Sub CloseForm(ByVal formulario As Form)
        If MsgBox("Desea Cerrar la Aplicacion", MsgBoxStyle.YesNo, "Confirmar") = MsgBoxResult.No Then
            formulario.Cancel = True
        End If
    End Sub
 

Este es un ejemplo basico pero operativo de lo que deseo hacer (pero igual no funciona)