If (bX - aX) * (bX - aX) + (bY - aY) * (bY - aY) < 10 Then
‘Me.Line (aX, aY) - (bX, bY)’这一行是Vb6及以前版本的画线语句
g.DrawLine(mpen, aX, aY, bX, bY) ‘这一行是Vb.net的画线语句
Else
cX = aX + (bX - aX) / 3
cY = aY + (bY - aY) / 3
eX = bX - (bX - aX) / 3
eY = bY - (bY - aY) / 3
Call Fractal(aX, aY, cX, cY)
Call Fractal(eX, eY, bX, bY)
l = System.Math.Sqrt((eX - cX) * (eX - cX) + (eY - cY) * (eY - cY))
alpha = System.Math.Atan((eY - cY) / (eX - cX))
If (alpha >= 0 And (eX - cX) < 0) Or (alpha <= 0 And (eX - cX) < 0) Then
alpha = alpha + PI
End If
dY = cY + System.Math.Sin(alpha + PI / 3) * l
dX = cX + System.Math.Cos(alpha + PI / 3) * l
Call Fractal(cX, cY, dX, dY)
Call Fractal(dX, dY, eX, eY)
End If

做上图时优化了一下程序，PI用355 / 113“密率”代替了(为了迭代快），考虑程序可读性还是帖原来的。

Email: i90-#hotmail.com
#号替换掉。