Public Class Sistema
    Public Shared Sub EjecutaFichero(Fichero As String)
        Dim p As New Process
        p.StartInfo = New ProcessStartInfo(Fichero)
        p.StartInfo.UseShellExecute = True
        p.Start()
    End Sub
End Class