VB.NET - Changeopacity does not work

Question

When executing my code the following message appears to me: "BC30451 - Changeopacity is not declared. It may be inaccessible due to its level of protection." I’m making an effect on my picturebox(static_logo) so that it disappears little by little.

Public Class splashscreenspw
Private Sub Splashscreenspw_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    bootsound.URL = Application.StartupPath & "\" & "bootsound" & ".mp3"
    bootsound.Ctlcontrols.play()
End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    ProgressBar1.Value += 1
    If ProgressBar1.Value = 15 Then
        static_logo.Visible = True
    End If
    If ProgressBar1.Value >= 16 Then
        static_logo.Image.Dispose()
        static_logo.Image = ChangeOpacity(My.Resources.bootscreen, 0.3)
    End If
    If ProgressBar1.Value = 30 Then
        Timer1.Dispose()
        Me.Hide()
        index.ShowDialog()
        Me.Close()
    End If
End Class

In case it is useful to visualize the problem, there goes an image of my form: