dim auflösung as Integer = 300
dim pfad as string = "C:\testbild.bmp" 'das ist die Bitmap, die eine neue 
' Auflösung bekommen soll
dim fs as new IO.FileStream(pfad,IO.Filemode.Open) 'Bild für Zugriff öffnen
'Nun kommt ein Trick, der leider nötig ist - Low- und Highbytes vertauschen
dim b() As Byte = BitConverter.GetBytes(CInt(auflösung/0.0254)) 'die Auflösung 
' wird in Pixel pro Meter verlangt
'Jetzt alle vier Bytes in der richtigen Reihenfolge an die richtige Stelle in 
' den Bitmapinfoheader schreiben
fs.Seek (38,0) 'Hier im Header steht die Horizontale Auflösung und vier Bytes 
' weiter die Vertikale (s.Link oben von Manfred X auf Wikipedia)
dim bw As New IO.BinaryWriter(fs)
bw.Write(b,0,4) 'X-Auflösung
bw.Write(b,0,4) 'Y-Auflösung
bw.Close()
fs.Close()
fs.Dispose

Dont debug, because there will allways be one more bug