I've tried this and cannot make it work and textbox is set as keypress
Private Sub Command74_Click()
Dim VideoAddr As String
VideoAddr = Replace(URLAddr.Text, "/watch?v=", "/v/")
WindowsMediaPlayer1.URL = VideoAddr
End Sub
I've tried this and cannot make it work and textbox is set as keypress
Private Sub Command74_Click()
Dim VideoAddr As String
VideoAddr = Replace(URLAddr.Text, "/watch?v=", "/v/")
WindowsMediaPlayer1.URL = VideoAddr
End Sub