Private Sub CreateExternalResourceFile()
 
        Dim objImage As Image
        Dim strResItemName As String ' = Image-Name
        Dim rsw As ResourceWriter
 
        rsw = New ResourceWriter("F:\ResTest\Test.resources")
 
        For itm As Integer = 0 To lbxResources.Items.Count - 1
            strResItemName = lbxResources.Items(itm)
            objImage = Image.FromFile("F:\ResTest\" & _
strResItemName & ".jpg")
            rsw.AddResource(strResItemName, objImage)
        Next
 
        rsw.Close()
 
        MessageBox.Show("Resource angelegt")
 
    End Sub