[محمد]

ما الخطاء فى هذا الكود

كود :

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If TextBox1.Text = Text Then
            My.Computer.Keyboard.SendKeys("a")
            My.Computer.Keyboard.SendKeys("f")
            My.Computer.Keyboard.SendKeys("d")
            My.Computer.Keyboard.SendKeys("s")
        End If
    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        Timer1.Enabled = True
    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        Interaction.AppActivate(TextBox1.Text)
    End Sub