VB.Net 2010 ile basit bir çalışma

Merhaba,
VB.Net ile 0 ile 100 arası girilen rakkamın 0 ile girilen rakkama kadar olan sayıların toplamını veren çok çok basit bir program. "exe" dosyasını sorun olmasın diye paylaşmıyorum. VB.Net 2010 express edition yüklü arkadaşlar çalıştırıp görebilirler.
Public Class Form1
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Label6.Text = Today
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Me.Close()
End Sub
Private Sub Label2_Click(sender As System.Object, e As System.EventArgs) Handles Label2.Click
Dim rakkam As String = TextBox1.Text
TextBox1.Focus()
If IsNumeric(rakkam) = False Then
MsgBox("Sadece rakkam girebilirsiniz")
TextBox1.Focus()
TextBox1.SelectAll()
Exit Sub
End If
If IsNumeric(rakkam) = True Then
rakkam = TextBox1.Text
If rakkam > 100 Then
MsgBox("Sadece 1 ile 100 arası rakkam girebilirsiniz")
TextBox1.Focus()
TextBox1.SelectAll()
Exit Sub
End If
If rakkam = 0 Then
MsgBox("Sadece 1 ile 100 arası rakkam girebilirsiniz")
TextBox1.Focus()
TextBox1.SelectAll()
Exit Sub
End If
End If
rakkam = rakkam * (rakkam + 1) / 2
Label4.ForeColor = Color.Aqua
Label4.Text = rakkam
End Sub
Private Sub Button1_MouseEnter(sender As Object, e As System.EventArgs) Handles Button1.MouseEnter
Cursor = Cursors.Hand
End Sub
Private Sub Button1_MouseLeave(sender As Object, e As System.EventArgs) Handles Button1.MouseLeave
Cursor = Cursors.Default
End Sub
Private Sub Label2_MouseEnter(sender As Object, e As System.EventArgs) Handles Label2.MouseEnter
Cursor = Cursors.Hand
End Sub
Private Sub Label2_MouseLeave(sender As Object, e As System.EventArgs) Handles Label2.MouseLeave
Cursor = Cursors.Default
End Sub
Private Sub Timer1_Tick(sender As Object, e As System.EventArgs) Handles Timer1.Tick
Label7.Text = TimeOfDay
End Sub
End Class

eline sağlık fotoğraflarla zenginleştireceğinden hiç şüphem yok

Kodlarınızı BB code tekniği ile yaparsanız konularınız daha şık okunabilir olur. Başarılarınızın devamını dilerim