Public Class FormImage
    [...]
    Dim frmPalette As New FormPalette
    frmPalette.Init(PictureBox1.Image.Palette)
    frmPalette.ShowDialog()
  End Class

  Public Class FormPalette
 
    Private myPalette As Imaging.ColorPalette
 
    Public Sub Init(ByRef thePalette As Imaging.ColorPalette)
      myPalette = thePalette
      myPalette.Entries(1) = Color.Red     ' Das funktioniert
    End Sub
 
    Private Sub Button1_Click()
      myPalette.Entries(2) = Color.Blue    ' Das funktioniert NICHT!
    End Sub
 
    [...]
  End Class

Dem Ingeni?r ist nichts zu schw?r!