Private Const VK_RETURN As Integer = &HD
    Private Const WM_CHAR As Integer = &H102
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim prclist As Process() = Process.GetProcesses
        Dim p As Process
        For Each p In prclist
 
            If p.ProcessName = "notepad" Then
                SendMessage(GetWindow(p.MainWindowHandle, GW_CHILD), WM_CHAR, _
                  Keys.C, 0)
            End If
 
        Next
    End Sub

Gru? Mr.T


>>>Visit:???