Private Sub cmdrun_Click()
n1 = Val(Text1.Text)
n2 = Val(Text2.Text)
Text3.Text = tavan(n1, n2)
End Sub


Public Function tavan(ByVal n1 As Integer, ByVal n2 As Integer)
If n1 < n2 Then
t = n1 ^ n2
Else
t = n2 ^ n1
End If
tavan = t
End Function