Private Sub Command1_Click() Fori=0 To 3 If (9) =True Then opt=Option1(i).Caption End If Next Select Case (10) Case"+" Result=Val(Text1.Text)+Val(Text2.Text) Case"-" Result=Val(Text1.Text)-Val(Text2.Text) Case"*" Result=Val(Text1.Text)*Val(Text2.Text) Case"/" Result=Val(Text1.Text)/Val(Text2.Text) End Select (11) =Result End Sub