vb.net Video Filters

Imports Emgu.CV
Imports Emgu.CV.Util
Imports Emgu.CV.Structure

Public Class Form1

Dim capturez As Capture = New Capture

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Dim imagez1 As Image(Of Bgr, Byte) = capturez.RetrieveBgrFrame
Dim imagez2 As Image(Of Bgr, Byte) = imagez1.Dilate(3)
Dim imagez3 As Image(Of Bgr, Byte) = imagez1.Erode(3)
Dim imagez4 As Image(Of Bgr, Byte) = imagez1.Not()
Dim imagez5 As Image(Of Bgr, Byte) = imagez1.Rotate(45, New Bgr(0, 0, 0))

Dim imagez6 As Image(Of Gray, Byte) = capturez.RetrieveGrayFrame
Dim imagez7 As Image(Of Gray, Byte) = imagez6.Canny(New Gray(150), New Gray(60))

PictureBox1.Image = imagez1.ToBitmap
PictureBox2.Image = imagez2.ToBitmap
PictureBox3.Image = imagez3.ToBitmap
PictureBox4.Image = imagez4.ToBitmap
PictureBox5.Image = imagez5.ToBitmap
PictureBox6.Image = imagez7.ToBitmap

End Sub
End Class