Zitat:

...um damit den Mittelpunkt des Kreises am gesammten Bild bestimmen zu können.

Option Explicit
DefSng A-Z
 
Private Sub Picture1_Click()
    Dim hoehe, breite, minzeile, maxzeile, minspalte, _
        maxspalte, radius, mitte, abstand
    Dim anfang As Boolean
    Dim gefunden As Boolean
 
    Me.ScaleMode = vbPixels
    Picture1.ScaleMode = vbPixels
    Picture1.AutoRedraw = True
    Picture1.DrawWidth = 2
    minspalte = Picture1.Width - 1
    abstand = 0.5
 
    For hoehe = 0 To Picture1.Height - 1
        For breite = 0 To Picture1.Width - 1
            If Picture1.Point(breite, hoehe) <> vbWhite Then
                If anfang = False Then
                    If breite < minspalte Then
                        anfang = True
                        minzeile = hoehe
                        minspalte = breite
                    Else
                        If breite = minspalte Then
                            anfang = True
                            maxzeile = hoehe
                            minspalte = breite
                        Else
                            gefunden = True
                            Exit For
                        End If
                    End If
                Else
                    maxspalte = breite
                End If
            End If
        Next
        anfang = False
        If gefunden = True Then Exit For
    Next
    minspalte = minspalte - abstand * 2
    radius = (maxspalte - minspalte) / 2 + abstand
    mitte = minzeile + (maxzeile - minzeile) / 2
    Picture1.Circle (minspalte + radius, mitte), radius, vbRed
End Sub

mfg
brave@heart

...bis zur unendlichkeit und noch viel weiter...