If RadioButton2.Checked = True Then
 
            Dim datum As DateTime
            Dim datumende As DateTime
 
 
            For k As Integer = 1 To Date.DaysInMonth(Date.Now.Year, _
              Date.Now.Month)
                datum = k & "." & Date.Today.Month & "." & Date.Now.Year & "" & _
                "12:00:00"
                datumende = k & "." & Date.Now.Month & "." & Date.Now.Year & "" & _
                "" & Sonne.Wann_A(175, datum).ToString
                datum = k & "." & Date.Now.Month & "." & Date.Now.Year & " " & _
                Sonne.Wann_A(-175, datum).tostring
 
                Dim u As Integer = -1
                Dim Sonnenbahn() As PointF
                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