DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub TextBox1_Change()
RefreshTxtBx
End Sub
'
Private Sub TextBox2_Change()
RefreshTxtBx
End Sub
'
Private Sub RefreshTxtBx()
Dim Val1 As Double, Val2 As Double
On Error Resume Next
Val1 = TextBox1
Val2 = TextBox2
On Error GoTo 0
TextBox3 = Val1 + Val2
End Sub