RETO5 –Ejecutables

Public Class Ejecutables

    Private Sub btncalculadora_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncalculadora.Click

        Dim Proceso As New Process()

        Proceso.StartInfo.FileName = "calc.exe"

        Proceso.StartInfo.Arguments = ""

        Proceso.Start()

    End Sub

    Private Sub btnexplorador_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnexplorador.Click

        Dim Proceso As New Process()

        Proceso.StartInfo.FileName = "explorer.exe"

        Proceso.StartInfo.Arguments = ""

        Proceso.Start()

    End Sub

    Private Sub btnmicroword_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmicroword.Click

        Dim Proceso As New Process()

        Proceso.StartInfo.FileName = "winword.exe"

        Proceso.StartInfo.Arguments = ""

        Proceso.Start()

    End Sub

    Private Sub btndos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndos.Click

        Dim Proceso As New Process()

        Proceso.StartInfo.FileName = "cmd.exe"

        Proceso.StartInfo.Arguments = ""

        Proceso.Start()

    End Sub

    Private Sub btnsalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsalir.Click

        Dim salida As Integer = MsgBox("Desea Salir??", MsgBoxStyle.YesNo + 32, "Mensaje al Usuario")

        If salida = 6 Then

            Me.Close()

        End If

    End Sub

End Class