Public Function LoadEmbeddedImage(ByVal imagename As String) As Image
        Try
 
 
            Dim this_assembly As Assembly
            Dim this_file As New FileInfo(Application.StartupPath & _
              "\eKanBan_Metall_resource.dll")
            Dim strm As Stream = Nothing
            Dim i As Integer = 0
 
            this_assembly = [Assembly].LoadFile(this_file.FullName)
 
 
 
            Dim tr As String() = this_assembly.GetManifestResourceNames()
 
            For i = 0 To UBound(tr)
 
                If LCase(tr(i)).Contains(LCase("KanBan_Metall" & "." & _
                  imagename)) = True Then
                    strm = this_assembly.GetManifestResourceStream(tr(i))
                    Exit For
                End If
            Next
 
            If strm Is Nothing Then
                Return Nothing
            End If
 
 
            Dim img As Image = Image.FromStream(strm)
 
            Return img
        Catch ex As Exception
            MsgBox(ex.Message)
            Return Nothing
        End Try
    End Function