Complicado no, sino que vas a necesitar de mucha matemática, sobre todo con el movimiento circular, esto lo vistes en física cuando estabas en bachillerato al menos te debes acordar de los nombres XD "Movimiento Circular Uniforme" y "Aceleración y Fuerza Centrípeta", busca información al respecto y la velocidad parece ser 0-1-0 osea que comienza en 0 acelera a 1 y vuelve a caer a 0, claro los números son ejemplos de valores. Esto quiere decir que no es uniforme sino más bien Variado el movimiento.

Aquí está muy bien explicado:
http://www.rena.edu.ve/cuartaEtapa/fisica/Tema4b.html

Busca información sobre los keyloggers que usan hooks.

Este es el foro de .Net así que asumo q hablas de Vb.Net, la primera pregunta no la entendi, lo segundo se hace así, y cambiale el título al tema por algo que tenga que ver:

    <DllImport("user32.dll")> _
Private Shared Function SetForegroundWindow(ByVal hWnd As IntPtr) As Boolean
    End Function
 
    <DllImport("user32.dll")> _
Private Shared Function ReleaseCapture() As Boolean
    End Function
 
    Private Sub Form1_MouseDown(ByVal sender As Object, _
                        ByVal e As System.Windows.Forms.MouseEventArgs) Handles _
                        Me.MouseDown
 
        If e.Button = MouseButtons.Left Then
            ReleaseCapture()
            SendMessage(Me.Handle, &HA1, &H2, 0)
        End If
 
    End Sub

Claro esto movera el Form por cualquier parte, ponle el Handles al control que quieras usar para mover el Form.

En My.Resources los recursos se guardan o en Binario o en String eso lo decide el compilador automáticamente, no se guardan como un "archivo" y no son una ruta ni un Stream para abrirlos con StreamReader. Ya My.Resources.Data1 es una matriz de bytes. Si deseas transformarlo en String, entonces usa:

System.Text.Encoding.Default.GetString(My.Resources.Data1)

Si lo quieres en Matriz de Bytes ya está así

Si tú preocupación es leerlo realmente con un Stream entonces crea un Stream inicializalo como un MemoryStream con My.Resources.Data1 y abrelo con StreamReader.

Así y estableciendo la propiedad AllowDrop = True

    Private Sub Form1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Form1.DragDrop
 
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
 
            Dim Objetos As String() = e.Data.GetData(DataFormats.FileDrop)
 
       For Each Archivo As String In Objetos
            MessageBox.Show(Archivo)
       Next
 
        End If
 
    End Sub
 
    Private Sub Form1_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Form1.DragEnter
 
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            e.Effect = DragDropEffects.All
        End If
 
    End Sub

Al final en _StreamWriter.Close() estas cerrando el escritor del stream no el stream principal, el archivo sigue abierto, cierra con _Stream.Close() hacer eso tambien cierra el Writer.

Dónde dice

            If .ShowDialog = Windows.Forms.DialogResult.OK Then
                ruta_txt.Text = (.SelectedPath)
            End If

Si el usuario presiona cancelar y no aceptar sigue corriendo la ejecución de las demás instruciones, agrega un Else Exit Sub (asumo que estás en un Sub sino Exit Function y dónde sea que estes ).

            If .ShowDialog = Windows.Forms.DialogResult.OK Then
                ruta_txt.Text = (.SelectedPath)
            Else
                Exit Sub
            End If

Algunas recomendaciones estás en .Net, usa:

' Usa '
IO.File.Exists
' En Vez De '
My.Computer.FileSystem.FileExists
 
' Usa '
MessageBox.Show()
 
' En Vez De '
MsgBox
 
' Usa '
Environment.NewLine
 
' En Vez De '
VbNewLine
 

Con lo de invocar dentro del for llenas memoria de manera innecesaria, a pesar de que invoques una variable con el mismo nombre, es una nueva asignación y se guarda en memoria como nueva variable y la anterior queda flotando porque está creada pero no hay forma de hacer referencia a ella, si lo hicieras con variables que tardaran más en construirse el programa se tornaría muy lento.

Con respecto a cerrar y abrir el Stream para cada vez que vas a escribir no es necesario explicar a menos que vayas a tomar un dictado cerrando y abriendo el cuaderno con cada palabra

La forma correcta es esta:

Dim _Stream As New FileStream("C:\Archivo.ejemplo", FileMode.Open)
Dim _StreamWriter As New StreamWriter(_Stream)
 
'ESCRITURA DE EJEMPLO'
 For X As Integer = 0 To 10
   _StreamWriter.WriteLine(X.ToString())
 Next
 
_Stream.Flush()
_Stream.Close()
 
'YA AQUI SE PUEDE ELIMINAR EL ARCHIVO'
 

Cada vez me confundes más porque agregas esto?

Linea = Linea & vbNewLine & ListBox1.Items(a).ToString()

Y no

Linea = ListBox1.Items(a).ToString()

Te has complicado al extremo, para escribir un archivo con un StreamWriter no necesitas (a menos que no te hayas dado cuenta) lo que haces aquí:

        For a = 0 To ListBox1.Items.Count - 1
            Dim _Stream As New IO.FileStream(FolderBrowserDialog1.SelectedPath & "\listado.txt", IO.FileMode.Open)
            Dim _StreamWriter As New IO.StreamWriter(_Stream)
 
            Linea = Linea & vbNewLine & ListBox1.Items(a).ToString()
            _StreamWriter.Write("")
            _StreamWriter.WriteLine(Linea)
            _StreamWriter.Close()
        Next

Creas el Stream, creas el StreamWriter, escribes y cierras una y otra vez las intrucciones están en un for se repiten tantas veces como ListBox Items tenga.

Es como si escribieras en un cuaderno y para cada palabra cierras y abres el cuaderno, no tiene sentido

Debes colocar el .Close fuera del for así como el invocar dentro de un for es de mala práctica no se debe hacer, y lo que haces con el segundo StreamWriter lo puede hacer con el primero antes de cerrarlo, no puedes abrir un mismo archivo con 2 StreamWriter diferentes a menos que le asignes la opción de compartir la escritura/lectura del archivo, y no puedes eliminar el archivo por que no has cerrado _Stream y no lo puedes cerrar porque lo invocastes en el espacio del for y fuera de el el Stream no existe a pesar de que el archivo sigue abierto, mira el código cierras son los Writer pero eso no cierra el archivo.

Dim oSW As New StreamWriter(FolderBrowserDialog1.SelectedPath)

Te recuerdo que FolderBrowserDialog1.SelectedPath te retorna el DIRECTORIO seleccionado, por ejemplo:

C:\EJEMPLO

No es un archivo y por lo tanto no lo puedes abrir como uno con un StreamWriter, debes agregar "\" ( el separador de Path ) y el nombre del archivo a escribir:

FolderBrowserDialog1.SelectedPath & "\Archivo.ejemplo"

La forma correcta de hacer lo que intentas es  abriendo el archivo de esta manera:

        Dim _Stream As New IO.FileStream("C:\Ejemplo\Archivo.ejemplo",IO.FileMode.Open)
        Dim _StreamWriter As New IO.StreamWriter(_Stream)

Has Flush y cierra el Stream después de usarlo.

Usa el Tag (code=vb.net)(/code) con corchetes ([]) cuando vayas a escribir código.

Cual es el error que te marca exactamente y en que línea del código?

No me parece esto de:

For a = 0 To ListBox1.Items.Count - a

Más bien debería ser así:

For a = 0 To ListBox1.Items.Count - 1

Invocas al constructor de StreamWriter con el nombre de una carpeta  

Usa el Flush antes de cerrar el Stream, no trabajas con gran cantidad de datos como para vaciar los Buffer en cada escritura.

Cierra el Stream después de que no lo necesites más.