Private Sub button1_Click()

Dim sayi2 As Long

Dim sayi1 As Long

sayi1 = Val(Textbox1.Text)

sayi2 = Val(Textbox2.Text)

If sayi1 > sayi2 Then

Textbox3.Text = "sayı1 enbüyük=" & sayi1

Else

Textbox3.Text = "sayı2 enbüyük=" & sayi2

End If

If sayi1 = sayi2 Then

Textbox3.Text = "sayılar eşittir=" & sayi1

End If

End Sub