Buyrun; Public Class Form1 Private Sub Form1_Load Handles MyBase. Load Text = "Une Calculatrice Par Batuhanus" TextBox1. Text = "" TextBox2. Text = "" TextBox3. Text = "" Label1. Text = "1. Sayı" Label2. Text = "2. Sayı" Label3. Text = "sonuç" Button1. Text = "+" Button2. Text = "-" Button3. Text = " " Button4. Text = "/" Button5. Text = "temizle" End Sub Private Sub Button1_Click Handles Button1. Click TextBox3. Text = (Str(Val(TextBox1. Text) + Val(TextBox2. Text))) End Sub Private Sub Button2_Click Handles Button2. Click TextBox3. Text = (Str(Val(TextBox1. Text) - Val(TextBox2. Text))) End Sub Private Sub Button3_Click Handles Button3. Click TextBox3. Text = (Str(Val(TextBox1. Text) Val(TextBox2. Text))) End Sub Private Sub Button4_Click Handles Button4. Click TextBox3. Text = (Str(Val(TextBox1. Text) / Val(TextBox2. Text))) End Sub Private Sub Button5_Click Handles Button5. Click TextBox3. Text = (Str(0)) End Sub End Class crossfire.