求救.........高手快来 ！！！

Question

Public Sub Draw(Alf)
    Dim Bet, xA, yA, a, F, xB, yB, a2, xC, yC, M1!
    ZhiZuoV -1, x1, y1, 10, 12
   aCircle1 x1, y1, r1, 9, 2
   aCircle1 x1, y1, r1, -20, 9, 2
    DrawText x1 + 20, y1, "O"
    a = Alf + Pi / 6
    For i = 1 To 6
        Ppad x1, y1, a, 80, xA, yA
       aCircle xA, yA, 30, 9
        a = a + Pi / 3
    Next
    Ppad x1, y1, Alf, r2, xA, yA
    a2 = App2D(x2, y2, xA, yA)
    Bet = a2 - Pi / 2
  DrawText x2 + 20, y2, "A"
    If Alf > Bet1 And Alf < Bet2 Then
       F = F1 / Cos(Bet)
    Else
       F = F2 / Cos(Bet)
    End If
    a = Abs(Alf - Bet)
    M1 = F * (r2 * Sin(a))
    圆轮摇杆.TextM = Format(M1, "0.0000")
    圆轮摇杆.TextF = Format(F, "0.0000")
    Ppad xA, yA, Bet, F, xC, yC
    JianTou xA, yA, xC, yC, 10, 2, 0
    Ppad x1, y1, Bet, -F, xC, yC
    
     JianTou x1, y1, xC, yC, 10, 2, 0
    DrawYaoGan x2, y2, L, W, Bet, xB, yB
        JianTou xB, yB, xB + F, yB, 10, 2, 0
       aCircle xA, yA, 3, 9, 2
        WallH -1, y3 + 5, 10, 50, 10, 9
         WallH 1, y3 - 5, 10, 50, 10, 9
          WallH -1, y3 + 5, 550, 590, 10, 9
           WallH 1, y3 - 5, 550, 590, 10, 9
           aLine1 1, y3, 600, y3, 13, 3
           aLine1 xB, y3, xB, y3 - 150, 13, 3
           ZhiZuoV 1, x1, y2, 10, 12
            
        
        
        
    DrawYaoGan x2, y2, L, W, Bet, xB, yB
End Sub
在这个程序中有   aCircle1 x1, y1, r1, 9, 2
                 aCircle1 x1, y1, r1, -20, 9, 2
中这个两个函数是哪里的？VB 中好象没有，还有aLine函数，是别的语言的标准函数么？
我看不像是自己编写的函数，高手请回答，最好给出来这个函数的定义：）

Answer 1

显然是自定义函数。还有 DrawYaoGan（画摇杆），JianTou（箭头），ZhiZuoV（支座）。

Answer 2

模块里我看过了，没有，现在我都用Circle ,Line函数替代，调试看能不能出现那种的效果

Answer 3

Public Type xLine
   xl As Single
   y1 As Single
   x2 As Single
   y2 As Single
   Color As Long
   Width As Integer
   Style As Integer
End TypePublic Type xCircle
   xc As Single
   yc As Single
   rc As Single
   Color As Long
   Width As Integer
   Style As Integer
End Type就给了这些定义，你们再帮看看，怎么推测出aCircle,aLine函数的的功能以及怎么编写？谢谢啦

Answer 4

在aCircle或者aLine处点击鼠标右键,然后选择"定义",看看能否找到