[asto]

السلام عليكم

احاول كتابة function

إقتباس :

كود :

Public Function b()

Dim mb As String
m = Text3.Text
mb = List3.List(m - 1)
MsgBox mb
If mb = "+" Then Text1.Text = Text2.Text + Text4.Text
If mb = "-" Then Text1.Text = Text2.Text - Text4.Text
If mb = "/" Then Text1.Text = Text2.Text / Text4.Text
If mb = "*" Then Text1.Text = Text2.Text * Text4.Text
If mb = "^" Then Text1.Text = Text2.Text ^ Text4.Text

فاين الخطأ

و كود الاستعمال