Dim messageElement = New TextMessageEncodingBindingElement() With {.MessageVersion = MessageVersion.CreateVersion(EnvelopeVersion.Soap12, AddressingVersion.None)}
Dim httpBinding As HttpTransportBindingElement = New HttpTransportBindingElement() With {.AuthenticationScheme = AuthenticationSchemes.Digest}
Dim bind As CustomBinding = New CustomBinding(messageElement, httpBinding)
mediaClient = New MediaClient(bind, New EndpointAddress($"http://{ip.Text}:{port.Text}/onvif/Media"))
mediaClient.ClientCredentials.HttpDigest.AllowedImpersonationLevel = System.Security.Principal.TokenImpersonationLevel.Impersonation
mediaClient.ClientCredentials.HttpDigest.ClientCredential.UserName = username.Text
mediaClient.ClientCredentials.HttpDigest.ClientCredential.Password = password.Text
Dim profs = mediaClient.GetProfiles()
profile = mediaClient.GetProfile(profs(0).token)
Dim profileToken As String = profs(0).token
Dim srtSetup = New StreamSetup() With {.Stream = StreamType.RTPUnicast, .Transport = New Transport() With {.Protocol = TransportProtocol.UDP}}
Dim vidUri As MediaUri = mediaClient.GetStreamUri(srtSetup, profileToken)
Process.Start("C://Program Files//Videolan//VLC//VLC.exe", vidUri.Uri)

Dim capUri As MediaUri = mediaClient.GetSnapshotUri(profileToken)
PictureBox1.Image = Image.FromStream(System.Net.HttpWebRequest.Create(capUri.Uri).GetResponse().GetResponseStream())