[3booody]

[COLOR="#800000"]السلام عليكم ورحمة الله وبركاته
ضع هذا الكود[/COLOR]

كود :

Private Sub TextBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Click
        TextBox1.Text = "1"
    End Sub

ولاتنسى ان الكود في الحدث Click