Dim pktA(0 To 1) As Double
Dim pktE(0 To 1) As Double
 
Dim pkt_pline(0 To 1, 0 To 3) As Double
 
pktA(0) = 10#
pktA(1) = 10#
 
pktE(0) = 10#
pktE(1) = 20#
 
pkt_pline(0, 0) = 0#
pkt_pline(1, 0) = 0#
 
pkt_pline(0, 1) = 3#
pkt_pline(1, 1) = 2#
 
pkt_pline(0, 2) = 5#
pkt_pline(1, 2) = 4#
 
pkt_pline(0, 3) = 12#
pkt_pline(1, 3) = 10#

     For i = 0 To iAnzPunkte - 1
 
            'Schnittpunktberechnung
            dblCrossPoint = geo_Geradenschnitt_Do(pktA, pktE, pkt_pline(i), _
              pkt_pline(i + 1), iCalcStatus)
      Next i

Public Function geo_Geradenschnitt_Do(pkt1() As Double, _
                                      pkt2() As Double, _
                                      pkt3() As Double, _
                                      pkt4() As Double, _
                                      pkt1_para() As Double, _
                                      pkt3_para() As Double, _
                                      ByRef iStatusOfSection, _
                                      Optional blnRechtwinkelschnitt As Boolean _
                                      = False) As Double()

Visual Basic 6.0 Grundkenntnisse und ansonsten alles rund um AutoCAD