streaming live

Public Class frmTVOnline
    Private Sub frmTVOnline_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim smftv As String = "http://www.boonniyom.net/livestream/player-viral.swf?streamer=rtmp://202.44.53.74:1935/live/_definst_&file=fmtv&dock=false&type=rtmp&autostart=true"
        swfTVOnline.LoadMovie(0, smftv)
    End Sub
End Class