Private Sub Command3_Click() Dim ni%, m1%, m%, n%, r% n1 = Text1.Text m1 = Text2.Text If m1 > n1 Then ' m>n m = m1: n = n1 Else m = n1: n = m1 End If Do r = m Mod n If r = 0 Then Exit Do m = n n = r Loop Text3.Text = n Text4.Text = m1 * n1 / n End Sub