Option Explicit
 
Private Sub Command1_Click()
    Dim radius1 As Integer
    Dim radius2 As Integer
    Dim Y1 As Double
    Dim X1 As Double
    Dim Y2 As Double
    Dim X2 As Double
    Dim Y3 As Double
    Dim X3 As Double
    Dim y4 As Double
    Dim x4 As Double
    Dim yS As Double
    Dim xS As Double
    Dim pi As Double
    Dim I As Integer
    Dim j As Integer
    
    yS = 3000
    xS = 3000
    pi = 3.141592654
    radius1 = 2200
    radius2 = 2600
    
    I = 1
    For I = 1 To 360
        Dim hPen As Long, hOldPen As Long
        hPen = CreatePen(vbSolid, 0, RGB(100, 100, 100))
        hOldPen = SelectObject(hDC, hPen)
        Dim LastPoint As POINTAPI
        MoveToEx hDC, 0, 0, LastPoint
        LineTo hDC, 100, 100
    
 
        
        Y3 = yS + radius1 * Sin(I * pi / 180)
        X3 = xS + radius1 * Cos(I * pi / 180)
        
        y4 = yS + (radius2 - 100) * Sin(I * pi / 180)
        x4 = xS + (radius2 - 100) * Cos(I * pi / 180)
        
    For j = 0 To 360 Step 10
    
        Y1 = yS + radius1 * Sin(j * pi / 180)
        X1 = xS + radius1 * Cos(j * pi / 180)
        
        Y2 = yS + radius2 * Sin(j * pi / 180)
        X2 = xS + radius2 * Cos(j * pi / 180)
        
  
        'If I = 0 Or I = 10 Then
            If X1 > 3000 And Y1 <= 3000 Then
                Picture1.Line (X1, Y1)-(X2, Y2)
            End If
            If X1 > 3000 And Y1 > 3000 Then
                Picture1.Line (X1, Y1)-(X2, Y2)
            End If
            If X1 < 3000 And Y1 > 3000 Then
                Picture1.Line (X1, Y1)-(X2, Y2)
            End If
            If X1 < 3000 And Y1 < 3000 Then
                Picture1.Line (X1, Y1)-(X2, Y2)
            End If
            Next j
        'Else
            If X3 > 3000 And Y3 <= 3000 Then
                Picture1.Line (X3, Y3)-(x4, y4)
            End If
            If X3 > 3000 And Y3 > 3000 Then
                Picture1.Line (X3, Y3)-(x4, y4)
            End If
            If X3 < 3000 And Y3 > 3000 Then
                Picture1.Line (X3, Y3)-(x4, y4)
            End If
            If X3 < 3000 And Y3 < 3000 Then
                Picture1.Line (X3, Y3)-(x4, y4)
            End If
        'End If
        SelectObject hDC, hOldPen
        DeleteObject hOldPen
    Next I
End Sub
 
Private Sub CommandWindroseZeigen_Click()
    Picture1.Circle (3000, 3000), 2200
    Picture1.Circle (3000, 3000), 2500
    Picture1.Line (3200, 3000)-(2800, 3000)
    Picture1.Line (3000, 3200)-(3000, 2800)
 
    Dim fontHandle As Long, oldFont As Long
    fontHandle = CreateFont(20, 16, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "ARIAL") ' Winkel In 1/10 Grad Schritten
    oldFont = SelectObject(Picture1.hDC, fontHandle)
    'Picture1.Print "Hallo"
    SelectObject Picture1.hDC, oldFont
    DeleteObject fontHandle
End Sub