[اسلام الكبابى]

جزاك الله خيرآ
ولدى أكواد عديدة لهذا الغرض وغيره منها مثلآ هذا الكود

Dim A1 As Single, A2 As Single
Dim AA1 As Single, AA2 As Single
Dim Namel As Integer, AMEL(22) As Integer


()Private Sub Command1_Click
Cls
A1 = Text1.Text
A2 = Text2.Text
AA1 = A1: AA2 = A2
Namel = 0
For I = 2 To AA1 / 2 + 1
50 Xdevid = AA1 / I
If Xdevid <> Int(Xdevid) Then GoTo 60
Namel = Namel + 1: AMEL(Namel) = I
If Xdevid = 1 Then GoTo 100 Else AA1 = Xdevid: GoTo 50
60 Next I
100 For I = 1 To Namel
Xdevid = AA2 / AMEL(I)
If Xdevid = Int(Xdevid) Then AA2 = Xdevid
Next I
AA1 = A1 * AA2 / A2
Text3.Text = AA1
Text4.Text = AA2
End Sub

[SIZE=5]ولكنى أسأل عن دالة فى لغة الvb

ولكم ألف شكر[/SIZE]