If RadioButton3.Checked = True Then
            Cursor.Current = Cursors.WaitCursor
            Dim Sonnenbahn() As PointF
            Dim datum, datumende As DateTime
            Dim year As Integer = Now.Year
            For m As Integer = 1 To 12
                For d As Integer = 1 To DateTime.DaysInMonth(year, m)
                    datum = New DateTime(year, m, d, 12, 0, 0, 0)
                    Dim time As TimeSpan = Sonne.Wann_A(175, datum)
                    datumende = New DateTime(year, m, d, time.Hours, _
                      time.Minutes, time.Seconds).AddDays(time.Days)
                    time = Sonne.Wann_A(-175, datum)
                    datum = New DateTime(year, m, d, time.Hours, time.Minutes, _
                      time.Seconds).AddDays(time.Days * -1)
                    Dim u As Integer = -1
                    Do
                        u = u + 1
                        ReDim Preserve sonnenbahn(u)
                        Sonnenbahn(u) = vFenster.toScreen(New PointF( _
                          Sonne.Azimut(datum), Sonne.Höhe(datum)))
                        If u > 0 Then
                            e.Graphics.DrawLine(Pens.YellowGreen, sonnenbahn(u _
                              - 1), sonnenbahn(u))
                        End If
                        datum = datum.AddHours(1)
                    Loop While datum < datumende
                Next
            Next