Private Sub pic()
        Dim hintergrund As New Bitmap(50, 50)
 
        Dim spielfeld(49, 49) As Integer
        For i = 0 To 49
            spielfeld(24, i) = 1
            spielfeld(25, i) = 1
        Next
 
        For a As Integer = 0 To 49
            For i = 0 To 49
                If Spielfeld(i, a) = 1 Then
                    Hintergrund.SetPixel(i, a, Color.Yellow)
                Else
                    Hintergrund.SetPixel(i, a, Color.Green)
                End If
            Next
        Next
        PictureBox1.Image = hintergrund
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist