To save a picture message to phone

[wittayat]

Hi

I am coding to save a picture massage into Nokia 8310 with VB .NET and Windows XP.
after i was saved it into the phone, the phone show the message be a message.
,not be a picture. It should be a picture. I check status of the message it is not be SHORTMESSAGE_TYPE_GSM_GMS .
How can I set a message to be a picture in my phone with this code?. The picture message user data, I copy from smart messaging FAQ., but change something. I save a message to the phone with a single message.

Thank.
Tree w.
Private submit As NokiaCLMessaging.IGSMSubmit

smsobj = New NokiaCLMessaging.ShortMsgAdapter()

Dim entry As NokiaCLMessaging.ShortMessageItem
entry = New NokiaCLMessaging.ShortMessageItem()

entry.Type = NokiaCLMessaging.ShortMessageType.SHORTMESSAGE_TYPE_GSM_SUBMIT
entry.TypeProperties = NokiaCLMessaging.ShortMessageType.SHORTMESSAGE_TYPE_GSM_GMS
entry.MessageStatus = NokiaCLMessaging.ShortMessageStatus.SHORTMESSAGE_STATUS_NOT_SENT
submit = entry.TypeProperties

submit.DestinationAddress = "+689111111"
submit.ServiceCenterAddress = "+689481155"
submit.ProtocolID = 0
submit.DataCodingScheme = 245
submit.ValidityPeriodRelative = 255

headerarr(0) = &HB
headerarr(1) = &H0
headerarr(2) = &H3
headerarr(3) = &H1
headerarr(4) = &H1
headerarr(5) = &H1
headerarr(6) = &H5
headerarr(7) = &H4
headerarr(8) = &H15
headerarr(9) = &H8A
headerarr(10) = &H0
headerarr(11) = &H0

dataarr(0) = &HB
dataarr(1) = &H5
dataarr(2) = &H4
dataarr(3) = &H15
dataarr(4) = &H8A
dataarr(5) = &H0
dataarr(6) = &H0
dataarr(7) = &H30
dataarr(8) = &H3
dataarr(9) = &H1
dataarr(10) = &H1
dataarr(11) = &H1
dataarr(12) = &H30
dataarr(13) = &H0
dataarr(14) = &H0
dataarr(15) = &H4
dataarr(16) = &H54
dataarr(17) = &H65
dataarr(18) = &H73
dataarr(19) = &H74
dataarr(20) = &H2
dataarr(21) = &H0
dataarr(22) = &H5E
dataarr(23) = &H0
dataarr(24) = &H48
dataarr(25) = &HA
dataarr(26) = &H1
For i = 27 To 116
dataarr(i) = &HFF
Next

submit.UserDataHeader = headerarr
submit.UserData = dataarr
Call smsobj.SaveSMS(SHORTMESSAGE_MEMORY_ME, 2, 2, submit)

[gvieira]

You've gotten alot further than I have though I'm writing in VB 6.0

Which library/ocx is the NokiaCLMessaging from as I can't find this anywhere?

If you can help me there I can possibly help.