¿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

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