Tengo un programa que he estado haciendo y mejorando de un autologger de un juego online llamado Tibia, hoy se me ocurrio agregarle progressbar personalizadas pero a mi manera con este sub que probe en un proyecto nuevo vacio que cree para solo probarlo:

    Public Shared Sub LoadImage(ByVal Pic As PictureBox, ByVal Percent As Integer)
        Dim LoadedBar As New Bitmap(My.Resources.Bar, Pic.Width, Pic.Height)
        Dim Img As New Bitmap(Pic.Width, Pic.Height)
 
        Select Case Percent
            Case 100
                Pic.Image = LoadedBar
            Case 0
                Pic.Image = Nothing
            Case Else
                For X As Integer = 0 To (LoadedBar.Width * (Percent / 100) - 1)
                    For Y As Integer = 0 To (LoadedBar.Height - 1)
                        Img.SetPixel(X, Y, LoadedBar.GetPixel(X, Y))
                    Next
                Next
                Pic.Image = Img
        End Select
 
        Pic.Refresh()
        Img = Nothing
        LoadedBar = Nothing
    End Sub

Consiste en cargar un % de una imagen que obviamente es la barra de progreso completa en un picturebox esto da la sensación de una progressbar; la imagen está es los resources del programa como Bar.png en el proyecto vacio de prueba sirve perfectamente pero si lo pruebo en mi proyecto, se cierra el form desde donde llame el sub y da el siguiente error:
El valor no puede ser nulo. Nombre del parámetro: image
En la linea:

Dim LoadedBar As New Bitmap(My.Resources.Bar, Pic.Width, Pic.Height)

Pero este error no da en el proyecto vacio de prueba, ya me tiene azul y no se que hacer

Resolvi así:

    Public Shared Sub LoadImage(ByVal Pic As PictureBox, ByVal Percent As Integer)
        Dim _
        LoadedBar As New Bitmap("C:\Bar.png"), _
        ResizedBar As New Bitmap(LoadedBar, Pic.Size.Width, Pic.Size.Height), _
        Img As New Bitmap(Pic.Size.Width, Pic.Size.Height)
 
        Select Case Percent
            Case 100
                Pic.Image = LoadedBar
            Case 0
                Pic.Image = Nothing
            Case Else
                For X As Integer = 0 To (ResizedBar.Width * (Percent / 100) - 1)
                    For Y As Integer = 0 To (ResizedBar.Height - 1)
                        Img.SetPixel(X, Y, ResizedBar.GetPixel(X, Y))
                    Next
                Next
                Pic.Image = Img
        End Select
 
        Pic.Refresh()
        Img = Nothing
        LoadedBar = Nothing
    End Sub

Pero no quiero cargarlo desde una ruta quiero cargar desde My.Resources si llamo a mi My.Resources me dice Referencia no establecida como instancia de objecto, no se supone que el objeto como resource ya está creado?

No te entendi muy bien, mi recurso es una imagen PNG llamada Bar que aparece directamente en My.Resources como My.Resources.Bar, además ahora me he dado cuenta que no me deja manipular ningún resource me dice siempre el mismo error "Referencia no establecida como instancia de un objeto"

Allí está