Strange Problem I have when I run Program???

[MarkT]

I would try switching the sub to something like this.

Private Sub Bashe1_Click()
Dim strFilePath As String
 
    If Right(App.Path, 1) = "\" Then
        strFilePath = App.Path
    Else
        strFilePath = App.Path & "\"
    End If
    
    Picture1.Visible = True
    MediaPlayer1.Visible = True
    MediaPlayer1.open strFilePath & "audio\Aa\Bashe.wma"
End Sub