¿Por qué no funciona?

Hola. Estoy haciendo un juego de hundir la flota con botonés. El caso es que
estoy apunto de finalizarlo pero tengo unos pequeños problemas. Estos son:
1-Primero creo las barcos de la máquina aplicando un número aleatorio y
después dependidendo el número se hace unas cosas. El problema es que no se
porque siempre da el mismo número aleatorio. ¿Por qué pasa? Las declaraciones
de los 8 barcos para el número aleatorio son:
Dim barcos1 As Integer = 119 * Rnd() + 1
Dim barcos2 As Integer = 119 * Rnd() + 1
Dim barcos3 As Integer = 152 * Rnd() + 1
Dim barcos4 As Integer = 152 * Rnd() + 1
Dim barcos5 As Integer = 135 * Rnd() + 1
Dim barcos6 As Integer = 135 * Rnd() + 1
Dim barcos7 As Integer = 174 * Rnd() + 1
Dim barcos8 As Integer = 174 * Rnd() + 1
2-He añadido la opción de música. Para ello he puesto un cuadro de diálogo
abrir y todo lo seleccionado se guarda en un documento de texto con
FileSystemObject. Pero después para abrirlo le paso estas líneas:
Dim FSO As New Scripting.FileSystemObject
Dim Parametro2 As Scripting.TextStream
Dim Lugar As String = Application.StartupPath & "/opciones3.txt"
Dim Temporal
Dim Temporal2 As String
Dim Temporal3
Dim datos
Parametro2 = FSO.OpenTextFile(Lugar, Scripting.IOMode.ForReading,
True, Scripting.Tristate.TristateUseDefault)
Temporal = Parametro2.Read(4)

If Temporal <> "" Then
Temporal = Parametro2.Line - 1
MusicaFondo.currentPlaylist.clear()
For datos = 0 To Temporal
Temporal2 = Parametro2.ReadLine

MusicaFondo.currentPlaylist.appendItem(MusicaFondo.mediaCollection.add(Parametro2.ReadLine))
Temporal3 = Parametro2.AtEndOfLine()
Parametro2.Skip(1)
Next
MusicaFondo.Ctlcontrols.play()
End If
Parametro2.Close()
Todo va bien pero al acabar la primera canción no continua a la siguiente.
¿Me he equivocado en algo?¿Por qué no salta automático a la siguiente línea?
3 - Esta duda ya hace tiempo que la tengo: ¿Como pongo una animación hecha
con macromedia flash?
Muchas gracias