So bekomme ich die selbe Fehlermeldung:

  Dim param1 As New OLEParameter
  Dim Bild As Picture
  Bild = NewPicture(160,43,24)


  param1.Type = OLEParameter.ParamTypeSingle
  param1.Value = Bild.Graphics.Handle(Bild.Graphics.HandleTypeHDC)
  param1.PassByref = True

  LCD.initLCD("EVE Test")

  LCD.showBitmap(param1, 1)

  LCD.closeLCD

Antwort per Email an