Raspberry Pi für Präsentationsbildschrim

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        If _bS.Position + 1 > _bS.Count - 1 Then
            Timer1.Stop()
            If laden = "ja" Then
                '_bS.DataSource = _sourcePath.GetFiles("*.jpg*")
                'PictureBox1.DataBindings.Add(New Binding("ImageLocation", _bS, "FullName"))
                laden = "nein"
                PictureBox1.DataBindings.Clear()
                Call start()
            End If
            If majowa_status = "majowa_aktive" Then
            Else


                If remote_status = "aktiv" Or fernseh_status = "aktiv" Or majowa_status = "majowa_aktiv" Then
                    _bS.Position = 0
                    Timer1.Start()
                Else


                    If My.Settings.video = "start" Then
                        PictureBox1.Visible = True
                        video_läuft = "vid_lauft"
                        Call client.video_status()
                        Film.Show()
                    Else
                        'GC.Collect()
                        'Call start()
                        _bS.Position = 0
                        Timer1.Start()
                    End If
                End If
            End If
        Else
            Me.Text = _bS.Position & "/" & _bS.Count - 1
            _bS.MoveNext()
        End If


    End Sub