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?