https://keijiban.umayadia.com/ThreadDetail.aspx?ThreadId=9309#CommentId12674
投稿者 トマト  (小学生) 投稿日時 2009/8/28 03:47:34
解決しました。まだちょっとしかテストしていませんが。
''' <summary>約分をします。</summary> 

Protected Friend Sub Reduce()

    Dim gcd = GetGCD(Me.Denominator, Me.Numerator)

    Me._denominator \= gcd 'この行と 

    Me._numerator \= gcd 'この行が原因でした。 

End Sub

ここでDenominatorにアクセスして無限にループしていたみたいです。
0