Visual Basic'i açıp Standart exe'yi seçiyoruz. Formumuza 3 adet Label, 3 adet TextBox, 4 adet OptionButton koyuyoruz. Eğer yapabildiyseniz ne ala. Ama yapamadıysanız mouse'yi sol menü üstünde gezdirip dediklerimi bulmaya çalışın. Onu da mı yapamadınız? O zaman bilgisayarı kapatın, anne-babanızla ve eğer versa kardeş(ler)inizle vedalaşıp kendinizi intihar edin ).
<br>Buraya kadar herşey tamamsa aşağıdaki kodları formunuza yapıştırın.

<br><br>Dim ilk, ikinci As Long

<br><br>Private Sub Command1_Click()
ilk = Text1.Text
ikinci = Text2.Text
If Option1.Value = True Then
Text3.Text = ilk + ikinci
End If
If Option2.Value = True Then
Text3.Text = ilk - ikinci
End If
If Option3.Value = True Then
Text3.Text = ilk * ikinci
End If
If Option4.Value = True Then
Text3.Text = ilk / ikinci
End If
End Sub

<br><br>Private Sub Form_Load()
BorderStyle = 1
Caption = "Buraya istediğinizi yazın"
Left = "4740"
Top = "4155"
Text1.Text = "1"
Text2.Text = "1"
Text3.Text = ""
Label1.Caption = "1. Sayı"
Label2.Caption = "2. Sayı"
Label3.Caption = "Sonuç"
Command1.Caption = ">>>"
Option1.Caption = "Toplama"
Option2.Caption = "Çıkarma"
Option3.Caption = "Çarpma"
Option4.Caption = "Bölme"
Option1.Value = True
End Sub


<br><br><br>İşte bu kadar. Dört işlemi canavar gibi yapan bir hesap makineniz oldu. Bol kodlu günler!!!

Dim ara, deger, deger1, deger2, topla, alan_kodu, numara, sorgu

Set oWShellExt = CreateObject("Shell.Application")

ara = Text1.Text

If ara <> "" Then


topla = ara

deger1 = "Linklerin Görülmesine İzin Verilmiyor-- 10 saniyede Kolay Üyelik...!!!
Üye Olunuz veya Giriş Yapınız"
alan_kodu = Text2.Text
numara = Text1.Text
deger2 = "&STR=&TEL="
deger = "&ATX=&DTX=&ZCD=&REQ=20&RNG=lequ"
sorgu = deger1 & alan_kodu & deger2 & numara & deger
oWShellExt.shellexecute sorgu

End If

End Sub

Fonksiyon Kodları
Public Function UzantıBul(Dosya As String)
If Dosya = "" Then Exit Sub
Dim Uzantı
Uzantı = Dosya
If Uzantı Like "*.??" Then Uzantı = Mid(Dosya, Len(Dosya) - 5, 6)
If Uzantı Like "*.?" Then Uzantı = Mid(Dosya, Len(Dosya) - 4, 5)
If Uzantı Like "*." Then Uzantı = Mid(Dosya, Len(Dosya) - 3, 4)
If Uzantı Like "*.??" Then Uzantı = Mid(Dosya, Len(Dosya) - 2, 3)
If Uzantı Like "*.?" Then Uzantı = Mid(Dosya, Len(Dosya) - 1, 2)
UzantıBul = Uzantı
End Function
' Kullanımı
' Me.Caption = UzantıBul("C:/Autoexec.bat")

maşallah biliyorsun epey...yazıyorsun...