Private Sub verstecken()
        Time = DateTime.Now
        Do While Time.AddSeconds(4) < DateTime.Now         
            lblloesung.Visible = True  
            If Time.AddSeconds(4) = DateTime.Now Then   
                Me.BindingContext(Me.objDataView).Position += 1
                lblloesung.Visible = False
                Exit Do 
            End If
        Loop
    End Sub