Рисунок

Option Explicit
Private Type Vec2
  x As Single
  y As Single
End Type
Dim dx(7) As Single, dy(7) As Single
Dim Ind As Long
 
Private Sub Form_Load()
Dim vPos As Vec2, vDir As Vec2
  Dim vP As Vec2, vD As Vec2
      Me.Show
      vP.x = 40
      vP.y = 500
      vD.x = 87
      vD.y = -54
      Cls
 
  ScaleMode = vbPixels
 Move Left, Top, Width - Screen.TwipsPerPixelX * (ScaleWidth - 1024), Height - Screen.TwipsPerPixelY * (ScaleHeight - 768)
  BackColor = 0
  ForeColor = RGB(0, 255, 0)
 
      vP.x = 40
      vP.y = 500
      vD.x = 87
      vD.y = -54
      Cls
      Fern vP, vD
 
End Sub
 
Private Sub Fern(vPos As Vec2, vDir As Vec2)
  Dim vP As Vec2, vD As Vec2
  If vDir.x * vDir.x + vDir.y * vDir.y < 0.017 Then Exit Sub
  vP.x = vPos.x + vDir.x
  vP.y = vPos.y + vDir.y
  Line (vPos.x, vPos.y)-(vP.x, vP.y)
 
  vD.x = vDir.x * 0.9 - vDir.y * 0.04
  vD.y = vDir.y * 0.9 + vDir.x * 0.04
  Fern vP, vD
  vD.x = vDir.x * 0.15 + vDir.y * 0.24
  vD.y = vDir.y * 0.15 - vDir.x * 0.24
  Fern vP, vD
  vD.x = vDir.x * 0.14 - vDir.y * 0.25
  vD.y = vDir.y * 0.14 + vDir.x * 0.25
  DoEvents
  Fern vP, vD
End Sub