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

[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.