Filenotfoundexception

Option Explicit On
Public Class frmM2S
Dim vPhase As Integer
Dim vHeader As String
Dim vPos As String
Dim vNeg As String
Dim vStimuli(4) As String
Dim vTrack
Private Sub picM2S0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles picM2S1.Click, picM2S2.Click, picM2S3.Click, picM2S4.Click
Dim buttonClicked As PictureBox
buttonClicked = CType(sender, PictureBox)
If buttonClicked.Name = picM2S1.Name() And vTrack = 1 Or buttonClicked.Name = picM2S2.Name() And vTrack = 2 Or buttonClicked.Name = picM2S3.Name() And vTrack = 3 Or buttonClicked.Name = picM2S4.Name() And vTrack = 4 Then
wmp1.URL = vPos
wmp1.Ctlcontrols.play()
Load_Stimuli()
Randomize_Stimuli_Position()
Else

wmp1.URL = vNeg
wmp1.Ctlcontrols.play()
Load_Stimuli()
Randomize_Stimuli_Position()

End If
End Sub

Private Sub frmM2S_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Input(3, vHeader)
Input(3, vPhase)
Input(3, vHeader)
Input(3, vPos)
Input(3, vHeader)
Input(3, vNeg)
Load_Stimuli()
Randomize_Stimuli_Position()
End Sub
Sub Load_Stimuli()
Dim i
Input(3, vHeader)
Input(3, vStimuli(0))
Input(3, vStimuli(1))
Input(3, vStimuli(2))
Input(3, vStimuli(3))
Input(3, vStimuli(4))
If vHeader = "END" Then
Dim x As New InsPostTest()
x.Show()
Me.Close()
Else
For i = 0 To 4
picM2S0.Image = Image.FromFile("C:\Programming\M2S\" & vStimuli(0) & ".bmp") *this is where the error is listing saying format not supported(but i ran this before adding the pretests and it worked perfectly)
picM2S1.Image = Image.FromFile("C:\Programming\M2S\" & vStimuli(1) & ".bmp")
picM2S2.Image = Image.FromFile("C:\Programming\M2S\" & vStimuli(2) & ".bmp")
picM2S3.Image = Image.FromFile("C:\Programming\M2S\" & vStimuli(3) & ".bmp")
picM2S4.Image = Image.FromFile("C:\Programming\M2S\" & vStimuli(4) & ".bmp")
Next i
End If




End Sub
Sub Randomize_Stimuli_Position()
Randomize()
Dim r
r = Int(6 * Rnd() + 1)
Select Case r
Case 1
picM2S1.Image = Image.FromFile("C:\programming\M2S\" & vStimuli(1) & ".bmp")
picM2S2.Image = Image.FromFile("C:\Programming\M2S\" & vStimuli(2) & ".bmp")
picM2S3.Image = Image.FromFile("C:\Programming\M2S\" & vStimuli(3) & ".bmp")
picM2S4.Image = Image.FromFile("C:\Programming\M2S\" & vStimuli(4) & ".bmp")
vTrack = 1
Case 2
picM2S1.Image = Image.FromFile("C:\programming\M2S\" & vStimuli(4) & ".bmp")
picM2S2.Image = Image.FromFile("C:\programming\M2S\" & vStimuli(1) & ".bmp")
picM2S3.Image = Image.FromFile("C:\programming\M2S\" & vStimuli(2) & ".bmp")
picM2S4.Image = Image.FromFile("C:\programming\M2S\" & vStimuli(3) & ".bmp")
vTrack = 2
Case 3
picM2S1.Image = Image.FromFile("C:\programming\M2S\" & vStimuli(2) & ".bmp")
picM2S2.Image = Image.FromFile("C:\programming\M2S\" & vStimuli(3) & ".bmp")
picM2S3.Image = Image.FromFile("C:\programming\M2S\" & vStimuli(4) & ".bmp")
picM2S4.Image = Image.FromFile("C:\programming\M2S\" & vStimuli(1) & ".bmp")
vTrack = 4
Case 4
picM2S1.Image = Image.FromFile("C:\programming\M2S\" & vStimuli(3) & ".bmp")
picM2S2.Image = Image.FromFile("C:\programming\M2S\" & vStimuli(4) & ".bmp")
picM2S3.Image = Image.FromFile("C:\programming\M2S\" & vStimuli(1) & ".bmp")
picM2S4.Image = Image.FromFile("C:\programming\M2S\" & vStimuli(2) & ".bmp")
vTrack = 3
Case 5
picM2S1.Image = Image.FromFile("C:\programming\M2S\" & vStimuli(4) & ".bmp")
picM2S2.Image = Image.FromFile("C:\programming\M2S\" & vStimuli(3) & ".bmp")
picM2S3.Image = Image.FromFile("C:\programming\M2S\" & vStimuli(2) & ".bmp")
picM2S4.Image = Image.FromFile("C:\programming\M2S\" & vStimuli(1) & ".bmp")
vTrack = 4
Case 6
picM2S1.Image = Image.FromFile("C:\programming\M2S\" & vStimuli(2) & ".bmp")
picM2S2.Image = Image.FromFile("C:\programming\M2S\" & vStimuli(1) & ".bmp")
picM2S3.Image = Image.FromFile("C:\programming\M2S\" & vStimuli(4) & ".bmp")
picM2S4.Image = Image.FromFile("C:\programming\M2S\" & vStimuli(3) & ".bmp")
vTrack = 2
End Select
picM2S0.Image = Image.FromFile("c:\programming\M2S\" & vStimuli(0) & ".bmp")


End Sub
End Class