Private Sub PositionsButton_click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs)
        Dim SelButton as Button = DirectCast(sender, Button)
 
        If SelButton.Name.StartsWith("btnPositionsauswahl") then
            dim i as Integer = SelButton.Name.Replace("btnPositionsauswahl", _
              String.Empty)
            For Each ctl as Control in me.Controls
                If TypeOf ctl is PictureBox then
                    If DirectCast(ctl, PictureBox).Name = "PictureBox" & i then
                        DirectCast(ctl, PictureBox).Image = img_checked
                    End If
                 End If
             Next
        End If
 
    End Sub