Dim stream As Stream
Dim defaultNamespace As String = "MyAssemblyName" ' стандартное пространство имен
Dim fileName As String = "Resource1.resources" ' наш скомпилированный Resource1.resx
Try
   stream = Me.GetType().Assembly.GetManifestResourceStream(String.Format("{0}.{1}", defaultNamespace, fileName))
   Dim reader As ResourceReader
   Try
       reader = New ResourceReader(stream)
       Dim entry As DictionaryEntry
       For Each entry In reader
           If (entry.Key.ToString() = "myicon1") Then
               Me.Icon = entry.Value
           End If
           If (entry.Key.ToString() = "mytext1") Then
               Me.Text = entry.Value
           End If
       Next
   Finally
       Dim disp As IDisposable
       If TypeOf reader Is IDisposable Then
           disp = reader
           disp.Dispose()
       End If
   End Try
Finally
   Dim disp As IDisposable
   If TypeOf stream Is IDisposable Then
       disp = stream
       disp.Dispose()
   End If
End Try
'где defaultNamespace - стандартное пространство имен
'В VS.NET: Solution Explorer -> контекстное меню проекта -> Properties -> Common Properties -> General ->AssemblyName.

Imports System.IO
Imports System.Resources

 uid  =  S a