Const WM_CHAR As Integer = &H102
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
      Handles Button1.Click
        Dim windows As IntPtr = FindWindow(vbNullString, "Administrator:" & _
        "C:\Windows\system32\cmd.exe")
        SendMessage(windows, WM_CHAR, Asc("S"c), 0)
        SendMessage(windows, WM_CHAR, Asc("t"c), 0)
        SendMessage(windows, WM_CHAR, Asc("o"c), 0)
        SendMessage(windows, WM_CHAR, Asc("p"c), 0)
        SendMessage(windows, WM_CHAR, Asc(CChar(vbCr)), 0)
    End Sub