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)

[Ka0stj]

Te refieres a algo asi:

Código vb:

Private Sub Prueba(ByVal Forma As Form)
 
        If MsgBox("Desea Cerrar la Aplicacion", MsgBoxStyle.YesNo, "Confirmar") = MsgBoxResult.Yes Then
            Forma.Close()
        Else
            ''Nada
        End If
 
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
 
        Prueba(Me)
 
    End Sub
 

aqui le mandas de parámetro la forma en la que estas y usas el sub en el botón.

[Pax-Man]

Exactamente eso... muchisimas gracias... funciona a la perfecccion