Imports Emgu.CV
Imports Emgu.CV.Structure
Imports Emgu.CV.Util
Public Class Form1
Dim capturez As Capture = New Capture
Dim imagez1 As Image(Of Bgr, Byte)
Dim imagez2 As Image(Of Bgr, Byte)
Dim rotation As Integer
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
imagez1 = capturez.RetrieveBgrFrame
imagez2 = imagez1.Rotate(rotation, New Bgr(255, 255, 255))
rotation = rotation + 2
If rotation = 360 Then
rotation = 0
End If
PictureBox1.Image = imagez2.ToBitmap
End Sub
End Class