Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown         
If e.KeyCode = Keys.Escape Then             
zu()         
End If     
End Sub     
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load         
VLC.playlist.add("rtsp://192.168.2.250/img/media.sav")         
VLC.playlist.play()         
Timer1.Enabled = True     
End Sub      
Private Sub fullscreen()         
If VLC.video.fullscreen = False Then             
VLC.video.toggleFullscreen()         
Else             
VLC.video.fullscreen = False         
End If     
End Sub     
Private Sub zu()         
Close()     
End Sub     
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Timer1.Tick         
fullscreen()         
Timer1.Enabled = False     
End Sub

? Der Computer ist die logische Weiterentwicklung des Menschen:
Intelligenz ohne Moral.?
(John Osborne, engl. Dramatiker, *1921)