Option Explicit
 
Public lFeldX As Long
Public lFeldY As Long
Public lFeldPosX As Long
Public lFeldPosY As Long
Public lFeldIndex As Long
Public Quotient As Double
Public zaehler As Double
 
Public Const Anzahl = 8
Public bZeile(1 To 8) As Boolean
Public bRODiagonale(2 To 16) As Boolean
Public bLUDiagonale(-7 To 7) As Boolean
Public iBelegung(1 To 8) As Integer
Public bAbbruch As Boolean
Public ii, ij, iindex As Integer
 
Private Sub main()
 
    lFeldPosX = 1520
    lFeldPosY = 1520
    zaehler = 0
 
    lFeldIndex = 0
 
    With frmMain
        .Width = 7000
        .Height = 7000
        .WindowState = vbCenter
 
        .lblZelle(0).Visible = False
 
        For lFeldX = 1 To 8
            For lFeldY = 1 To 8
                lFeldIndex = lFeldY * 10 + lFeldX
 
                Load .lblZelle(lFeldIndex)
 
                If zaehler = 0 Then
                    .lblZelle(lFeldIndex).BackColor = &H80000001
                    zaehler = 1
                Else
                    .lblZelle(lFeldIndex).BackColor = &H80000005
                    zaehler = 0
                End If
 
                .lblZelle(lFeldIndex).Top = lFeldPosX
                .lblZelle(lFeldIndex).Left = lFeldPosY
                .lblZelle(lFeldIndex).Visible = True
 
                lFeldPosY = lFeldPosY + 495
            Next lFeldY
 
            If zaehler = 0 Then
                zaehler = 1
            Else
                zaehler = 0
            End If
 
            lFeldPosX = lFeldPosX + 495
            lFeldPosY = 1520
        Next lFeldX
 
        .Show
    End With
 
    For ii = 1 To 8
        bZeile(ii) = True
        iBelegung(ii) = 0
    Next ii
 
    For ii = 2 To 16
        bRODiagonale(ii) = True
    Next ii
 
    For ii = -7 To 7
        bLUDiagonale(ii) = True
    Next ii
 
    Call DamenBelegung(1, bAbbruch) ' Ausgabeformatierungen
 
    For ii = 1 To 8
        If iBelegung(ii) <> 0 Then
            iindex = ii * 10 + iBelegung(ii)
            frmMain.lblZelle(iindex).BackColor = vbRed
        End If
    Next ii
 
End Sub
 
Public Sub DamenBelegung(ii, bAbbruch)
 
Dim ik As Integer
 
    ik = 0
    Do
        ik = ik + 1
        bAbbruch = False
        If bZeile(ik) And bRODiagonale(ii + ik) And bLUDiagonale(ii - ik) Then
            iBelegung(ii) = ik
            bZeile(ik) = False
            bRODiagonale(ii + ik) = False
            bLUDiagonale(ii - ik) = False
            If ii < Anzahl Then
                Call DamenBelegung(ii + 1, bAbbruch)
                If Not bAbbruch Then
                    bZeile(ik) = True
                    bRODiagonale(ii + ik) = True
                    bLUDiagonale(ii - ik) = True
                End If
            Else
                bAbbruch = True
            End If
        End If
    Loop Until ik = Anzahl Or bAbbruch
 
End Sub