ADC

Private Sub Command1_Click()

Text5.Text = Int(Text4.Text) * Int(Text3.Text)

End Sub

Private Sub Command2_Click()

Text4.Text = Int(Text1.Text) / Int((2 ^ Text2.Text) - 1)

End Sub