This way:
Public Sub MakeBitmap()
Dim newBitmap As Bitmap = New Bitmap(400, 400, Imaging.PixelFormat.Format32bppArgb)
Dim BrdsGraphic As Graphics = Graphics.FromImage(newBitmap)
Dim Pen As New Pen(Color.White, 1)
Dim Pnt1 as point
Dim Pnt2 as point
p1.X = 10
p1.Y = 10
p2.X = 100
p2.Y = 100
BrdsGraphic.DrawLine(Pen, Pnt1,Pnt2)
newBitmap.Save("c:\temp\TestImage.jpg", Imaging.ImageFormat.Jpeg)
End Sub
Public Sub WriteBitmap()
Dim wrd As Word.Application
wrd = New Word.Application
wrd.Visible = True
Dim doc As Word.Document = wrd.Documents.Add()
doc.Shapes.AddPicture("c:\temp\TestImage.jpg")
doc.Close(SaveChanges:=False)
wrd.Quit()
wrd = Nothing
End Sub
Jaap