'//Programado por Lekim//
Option Strict Off
 
Imports System.Drawing.Graphics
Imports System.IO
 
 
Public Class Form1
    Dim picCuadrado As New PictureBox
    Dim hScrollGrados As New HScrollBar
    Dim ButtonPaste As New Button
    ''' <summary>
    ''' Permite mostrar el radio inicial a 0 grados al inicio de la aplicación
    ''' </summary>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
        MyBase.OnPaint(e)
 
        Actualizar_Radio()
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Size = CType(New Point(430, 360), Drawing.Size)
 
        '//Crea un control Picture 
        Me.Controls.Add(picCuadrado)
        With picCuadrado
            picCuadrado.BorderStyle = BorderStyle.FixedSingle
            picCuadrado.Size = CType(New Point(300, 300), Drawing.Size)
        End With
        Me.Controls.Add(ButtonPaste)
        With ButtonPaste
            .Text = "Pegar"
            .Location = New Point(Me.picCuadrado.Width + 20, 10)
            AddHandler .Click, AddressOf ButtonPaste_Click
        End With
 
        '//Crea un control HScrollBar 
        Me.Controls.Add(hScrollGrados)
        With hScrollGrados
            .Width = 300
            .Top = picCuadrado.Height '+ hScrollGrados.Height
            .Minimum = 0
            .Maximum = 360
            .SmallChange = 1
            .LargeChange = 1
            'Eventos para hScrollGrados
            AddHandler .Scroll, AddressOf hScroll_Scroll
            AddHandler .ValueChanged, AddressOf hScroll_ValueChanged
        End With
 
 
    End Sub
 
    Private Sub hScroll_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs)
        Actualizar_Radio()
        Me.Refresh()
    End Sub
 
    Private Sub hScroll_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs)
        Actualizar_Radio()
        Me.Refresh()
    End Sub
 
    Sub Actualizar_Radio()
        picCuadrado.Refresh()
        '//Dibuja el radio
        DIBUJAR_RADIO(picCuadrado, hScrollGrados.Value, System.Drawing.Color.Blue, 5)
        '//Muestra los grados
 
        Me.CreateGraphics.DrawString(hScrollGrados.Value & "º", New Font("Arial", 30, _
                                                                                  FontStyle.Bold, _
                                                                                  GraphicsUnit.Point, 2) _
  , Brushes.Blue, picCuadrado.Width + 15, 250)
 
    End Sub
    Private Sub ButtonPaste_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
 
        '//Obtiene imagen desde internet
        ' Dim Client As New System.Net.WebClient()
        ' Client = New System.Net.WebClient
        ' Dim BinData As Byte() = Client.DownloadData("http://image.prntscr.com/image/c22000d107b945968d7d232228a3bcba.png") 'descarga el archivo como byte
        ' Dim imgStream As New MemoryStream(BinData) 'Convierte la imagen a stream
        ' Dim img As New Bitmap(Image.FromStream(imgStream))
        ' Dim img2 As New Bitmap(img, picCuadrado.Width, picCuadrado.Height)
        ' picCuadrado.Image = img2
 
        '//Obtiene desde archivo
        'Dim img As New Bitmap(Image.FromFile("C:\User\Documents\c22000d107b945968d7d232228a3bcba.png"))
        'Dim img2 As New Bitmap(img, picCuadrado.Width, picCuadrado.Height)
        'picCuadrado.Image = img2
 
        '//Obtiene imagen desde el portapapeles 
        If Clipboard.GetImage IsNot Nothing Then
            Dim img As New Bitmap(Clipboard.GetImage)
            Dim img2 As New Bitmap(img, picCuadrado.Width, picCuadrado.Height)
            picCuadrado.Image = img2
        End If
 
        Actualizar_Radio()
    End Sub
 
    ''' <summary>
    ''' Función para dibujar un radio
    ''' </summary>
    ''' <param name="objPicture"></param>
    ''' <param name="Grados"></param>
    ''' <param name="mColor"></param>
    ''' <param name="Grosor"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function DIBUJAR_RADIO(ByVal objPicture As PictureBox, _
                                    ByVal Grados As Integer, _
                                    ByVal mColor As Color, _
                                    ByVal Grosor As Integer) As Boolean
        Dim X1 As Integer
        Dim Y1 As Integer
        Dim X2 As Integer
        Dim Y2 As Integer
        Dim Angulo As Integer 'Ángulo en grados
        Dim RadioLong As Integer 'Longitud del radio
        'CENTRO IMAGEN
        X1 = CInt(picCuadrado.Width / 2)
        Y1 = CInt(picCuadrado.Height / 2)
 
        'ÁNGULO
        Angulo = Grados
        RadioLong = picCuadrado.Width
 
        'COORDENADA X E Y 
        X2 = CInt(Int((RadioLong * Math.Cos((360 - Angulo) * (Math.PI / 180))) + X1))
        Y2 = CInt(Int((RadioLong * Math.Sin((360 - Angulo) * (Math.PI / 180))) + Y1))
 
        'DIBUJA EL RADIO 
        Dim Radio As Graphics = objPicture.CreateGraphics
        Dim pen As New Drawing.Pen(mColor, Grosor)
 
        Radio.DrawLine(pen, X1, Y1, X2, Y2)
        Return Nothing
    End Function
End Class
 

Es ese precisamente jaja sisi. Cliente sin sonido. Y si, te tenes que registrar   ahora voy a probar el programa que me dijiste recien..

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" _
(ByVal hWnd1 As Long, ByVal hWnd2 As Long, _
ByVal lpsz1 As String, _
ByVal lpsz2 As String) As Long
Private Declare Function GetNextWindow Lib "user32" Alias "GetWindow" _
(ByVal Hwnd As Long, _
ByVal wFlag As Long) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" _
(ByVal Hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) As Long
     Const VK_NUMPAD1 = &H61
     Const WM_KEYUP = &H101
     Const WM_KEYDOWN = &H100
     Const NILL = 0&
     Const WM_SYSCOMMAND = &H112
     Const SC_CLOSE = &HF060
     Const GW_HWNDNEXT = 2
     Const GW_CHILD = 5
Private Sub Form_Load()
Shell ("Notepad")
Shell ("Calc")
 
End Sub
 
Private Sub Command1_Click()
Dim Hwnd As Long
'Windows Vista/XP
Hwnd = FindWindow("SciCalc", vbNullString)
 
'Windows 7
'Hwnd = FindWindow("CalcFrame", vbNullString)
 
     Me.Caption = Hwnd
        '//Envia la pulsación de la tecla 2 (del teclado alfabético)
        Call PostMessage(Hwnd, WM_KEYDOWN And WM_KEYUP , vbKey2, NILL)
End Sub
 
Private Sub Command2_Click()
Dim Hwnd As Long
Dim HwndChild As Long
Hwnd = FindWindow("Notepad", vbNullString)
     Me.Caption = Hwnd
     HwndChild = GetNextWindow(Hwnd, GW_CHILD)
        '//Envia la pulsación de la tecla 2 (del teclado alfabético)
        Call PostMessage(HwndChild, WM_KEYDOWN And WM_KEYUP, vbKeyQ, NILL)
End Sub
 

Hwnd = FindWindow(vbNullString, "Calculadora")

Hwnd = FindWindow(vbNullString, "Sin título - Bloc de notas")

Hwnd = FindWindow("SciCalc", "Calculadora")

Hwnd = FindWindow("Notepad", "Sin título - Bloc de notas")

Imports System.Runtime.InteropServices
Imports System.Security
 
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '//Abre el notepad y la calculadora
        Process.Start("Notepad")
        Process.Start("Calc")
        Button1.Text = "2 a Calculadora"
        Button2.Text = "Q a Notepad"
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        '//Obtiene el identificador de la ventana de la Calculadora
 
        'Windows Vista/XP
        Dim Hwnd As IntPtr = NativeMethods.FindWindow("SciCalc", Nothing)
 
        'Windows 7
        'Dim Hwnd As IntPtr = NativeMethods.FindWindow("CalcFrame", Nothing)
 
        Me.Text = Hwnd
        '//Envia la pulsación de la tecla 2 (del teclado alfabético)
        NativeMethods.PostMessage(Hwnd,   NativeMethods.WM_KEYDOWN And NativeMethods.WM_KEYUP, Keys.D2, NativeMethods.NILL)
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        '//Obtiene el identificador de la ventana del Notepad
        Dim Hwnd As IntPtr = NativeMethods.FindWindow("Notepad", Nothing)
        '//Obtiene el identificador de la ventana "hijo" del Notepad (ClassName="Edit")
        Dim hwndChild As IntPtr = NativeMethods.GetNextWindow(Hwnd, NativeMethods.GW_CHILD)
 
        Me.Text = Hwnd
        '//Envia la pulsación de la tecla 'Q'
        NativeMethods.PostMessage(hwndChild,NativeMethods.WM_KEYDOWN And NativeMethods.WM_KEYUP , Keys.Q, NativeMethods.NILL)
    End Sub
End Class
 
<SuppressUnmanagedCodeSecurity()>
Friend NotInheritable Class NativeMethods
    Private Sub New()
    End Sub
    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
    Friend Shared Function FindWindow( _
     ByVal lpClassName As String, _
     ByVal lpWindowName As String) As IntPtr
    End Function
 
    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto, EntryPoint:="GetWindow")> _
    Friend Shared Function GetNextWindow(ByVal hwnd As IntPtr, ByVal wFlag As Integer) As Integer
    End Function
 
    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
    Friend Shared Function FindWindowEx(ByVal hWnd1 As IntPtr, _
                                        ByVal hWnd2 As IntPtr, _
                                        ByVal lpsz1 As String, _
                                        ByVal lpsz2 As String) As Integer
 
    End Function
 
 
    <DllImport("user32.dll", CharSet:=CharSet.Auto, Entrypoint:="PostMessageA")> _
    Friend Shared Function PostMessage(ByVal hwnd As IntPtr, ByVal wMsg As Integer, _
                                                                           ByVal wParam As Integer, _
                                                                            ByVal lParam As Integer) As Integer
    End Function
    Public Const VK_NUMPAD1 = &H61
    Public Const WM_KEYUP = &H101
    Public Const WM_KEYDOWN = &H100
    Public Const NILL = 0&
    Public Const WM_SYSCOMMAND = &H112
    Public Const SC_CLOSE = &HF060
    Public Const GW_HWNDNEXT = 2
    Public Const GW_CHILD = 5
 
End Class