Sub tglbtn_ipcamera_CheckedChange(Checked As Boolean)
If tglbtn_ipcamera.Checked = True Then
vv.Initialize("vv")
VideoPanel.AddView(vv,0,0,100%x, 100%y)
vv.LoadVideo("http","rtsp://192.168.2.12/user=admin&password=&channel=1&stream=0.sdp?")
vv.Play
timer1.Enabled=True
Else
vv.Stop
vv.RemoveView
End If
End Sub
Sub timer1_tick
cache1.ClearMemoryCache
cache1.ClearDiskCache
End Sub