[3booody]

[COLOR="#A52A2A"]اخي بدون الحدث Mouse Move طريقة افضل
بما انك وضعت في كل زر يكتب حرف معين يعني[/COLOR]

كود :

[align=left][color=#0000FF]Private Sub [/color][color=#000000]Button1_Click([/color][color=#0000FF]ByVal [/color][color=#000000]sender [/color][color=#0000FF]As [/color][color=#000000]System.Object, [/color][color=#0000FF]ByVal [/color][color=#000000]e [/color][color=#0000FF]As [/color][color=#000000]System.EventArgs) [/color][color=#0000FF]Handles [/color][COLOR="#000000"]Button1.Click
        TextBox1.Text &= [/COLOR][COLOR="#A31515"]"a"
    [/COLOR][COLOR="#0000FF"]End Sub

    Private Sub [/COLOR][color=#000000]Button2_Click([/color][color=#0000FF]ByVal [/color][color=#000000]sender [/color][color=#0000FF]As [/color][color=#000000]System.Object, [/color][color=#0000FF]ByVal [/color][color=#000000]e [/color][color=#0000FF]As [/color][color=#000000]System.EventArgs) [/color][color=#0000FF]Handles [/color][COLOR="#000000"]Button2.Click
        TextBox1.Text &= [/COLOR][COLOR="#A31515"]"b"
    [/COLOR][color=#0000FF]End S[/color][/align]

تستطيع بالحدث TextBox1_TextChanged ان تقوم بالواجب

كود :

[align=left][color=#0000FF]Private Sub [/color][color=#000000]TextBox1_TextChanged([/color][color=#0000FF]ByVal [/color][color=#000000]sender [/color][color=#0000FF]As [/color][color=#000000]System.Object, [/color][color=#0000FF]ByVal [/color][color=#000000]e [/color][color=#0000FF]As [/color][color=#000000]System.EventArgs) [/color][color=#0000FF]Handles [/color][COLOR="#000000"]TextBox1.TextChanged
        [/COLOR][color=#0000FF]Dim [/color][color=#000000]W [/color][color=#0000FF]As [/color][color=#000000]IO.StreamWriter = IO.File.CreateText([/color][color=#A31515]"مسار النص"[/color][COLOR="#000000"])
        W.Write(TextBox1.Text)
        W.Close()
    [/COLOR][color=#0000FF]End S[/color][/align]