Public Function setvMixText(ByVal titleKey As String, ByVal inTitle As String, ByVal setText As String) As Boolean
        Try

            ' Create a request for the URL. 
            Dim request As WebRequest = WebRequest.Create("http://localhost:8088/API/?Function=SetText&Input=" & titleKey & "&SelectedName=" & inTitle & "&Value=" & setText)
            ' If required by the server, set the credentials.
            request.Credentials = CredentialCache.DefaultCredentials
            request.Timeout = 1000
            ' Get the response.
            Dim response As WebResponse = request.GetResponse()
            ' Display the status.
            Debug.Print(CType(response, HttpWebResponse).StatusDescription)
            ' Get the stream containing content returned by the server.
            Dim dataStream As Stream = response.GetResponseStream()
            ' Open the stream using a StreamReader for easy access.
            Dim reader As New StreamReader(dataStream)
            ' Read the content.
            Dim responseFromServer As String = reader.ReadToEnd()
            ' Display the content.
            Debug.Print(responseFromServer)
            ' Clean up the streams and the response.
            reader.Close()
            response.Close()
            Return True

        Catch ex As Exception
            Return False
        End Try
    End Function