dim a,b,t as integer
a=val(text1.text)
b=val(text2.text)
private sub formload()
msgbox("Hesap Makinesi Programına Hoş Geldiniz","Doğukan Güney")
end sub
private sub command1.click()
if option1.value=true then
t=a+b
label1.caption=t
end if
if option2.value=true then
t=a-b
label1.caption=t
end if
if option3.value=true then
t=a*b
label1.caption=t
end if
if option4.value=true then
t=a/b
label1.caption=t
end if
end sub