Nice one, I'm going to use that in an application I'm writing.

Thanks for sharing it with the group :)

That's a good idea.  Might I suggest a little improvemant may make it more
versatile.  As you show, you have to create the resource before you can use it,
but it may be useful to use it in this manner:

   Private bmp As Bitmap = MyResource.GetBitmap("mountains")

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _
                                         Handles MyBase.Load
       Me.Icon = MyResource.GetIcon("Mountain.ico")
   End Sub

   Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) _
                                          Handles MyBase.Paint
       e.Graphics.DrawImageUnscaled(bmp, 0, 0)
   End Sub

Note the bmp variable is declared at the module level, where the resource class
could not be created....  To cover that usage, you could make those functions
shared also.  Here is another go at that class with a few additions:

HTH
LFS

Public Class MyResource

   Public Shared Function AssemblyName() As String
       Return System.Reflection.Assembly.GetExecutingAssembly.GetName.Name
   End Function

   Public Shared Function GetIcon(ByVal Name As String) As System.Drawing.Icon
       ' *** NAME is CASE SENSITIVE  ***
       If Name.Length > 0 Then
           Dim Filename As String
           If InStr(LCase(Name), ".ico") > 0 Then
               Filename = Name
           Else
               Filename = Name & ".ico"
           End If
           Dim res As System.IO.Stream = [Assembly].GetExecutingAssembly.GetManifestResourceStream( _
                                          AssemblyName() & "." & Filename)
           If Not res Is Nothing Then
               GetIcon = New Icon(res)
               res.Close()
           End If
       End If
   End Function

   Public Shared Function GetBitmap(ByVal Name As String) As System.Drawing.Bitmap
       ' *** NAME is CASE SENSITIVE  ***
       If Name.Length > 0 Then
           Dim Filename As String
           If InStr(LCase(Name), ".bmp") > 0 Then
               Filename = Name
           Else
               Filename = Name & ".bmp"
           End If
           Dim res As System.IO.Stream = [Assembly].GetExecutingAssembly.GetManifestResourceStream( _
                                          AssemblyName() & "." & Filename)

           If Not res Is Nothing Then
               GetBitmap = DirectCast(Bitmap.FromStream(res), Bitmap)
               res.Close()
           End If
       End If
   End Function

End Class