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
