[mamas1]

أعتقد
يجب عليك إضافة
Application.DoEvents

PHP كود :

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim hWnd As IntPtr = FindWindow(Nothing, "s - Notepad")
Application.DoEvents
        If hWnd.Equals(IntPtr.Zero) Then
            Return
Application.DoEvents        
Else
            SendKeys.Send("{W}")
Application.DoEvents 
           SetForegroundWindow(hWnd)
Application.DoEvents
        End If
Application.DoEvents
    End Sub