Public Class encloud
    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        Form1.Show()
        Me.Hide()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim Message, Title, MyValue
        Message = "Introduce el SLOT"
        Title = "SLOT"
        MyValue = InputBox(Message, Title,) + "&output=3"

        Diagnostics.Process.Start("C:\Program Files\VideoLAN\vlc\VLC.exe", "http://172.28.4.174/api_proxy.php?command=play-input&channel=" + MyValue)

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim Message, Title, MyValue
        Message = "Introduce el SLOT"
        Title = "SLOT"
        MyValue = InputBox(Message, Title,) + "&output=3"

        Diagnostics.Process.Start("C:\Program Files\VideoLAN\vlc\VLC.exe", "http://172.28.4.175/api_proxy.php?command=play-input&channel=" + MyValue)
    End Sub
End Class