'Partial VB code
' the User Data field's value is shown in another attachment mnotif-ind(excluding sms UDH).txt

Private pSMSAdapter As NokiaCLMessaging.ShortMsgAdapter
Private pIGSMSubmit As NokiaCLMessaging.IGSMSubmit
Private pSMSMessageItem As NokiaCLMessaging.ShortMessageItem

public Sub Form_Load()
  Set pSMSMessageItem = New NokiaCLMessaging.ShortMessageItem
      pSMSMessageItem.Type = ShortMessageType.SHORTMESSAGE_TYPE_GSM_SUBMIT
    
  Set pIGSMSubmit = pSMSMessageItem.TypeProperties

End Sub


public Sub setNotifiIndMessage()

  'Basic sms params
  With pIGSMSubmit
     .DestinationAddress = "13096938912"
     .ServiceCenterAddress = "+8613800290500"
     .ValidityPeriodRelative = 167     '24 hours
     .DataCodingScheme = 245          '0xF5 Indication msg
     .ProtocolID = 0
     .MessageReferrence = 50
  End with

  ' user data header
  Dim udh2(0 To 6) As Byte
    udh2(0) = 6
    udh2(1) = 5
    udh2(2) = 4
    udh2(3) = 11    '0x0B
    udh2(4) = 132    '0x84
    udh2(5) = 11
    udh2(6) = 132  
  pIGSMSubmit.UserDataHeader = udh2

' user data
' pIGSMSubmit.UserData is a byte array, shown in the attachment mnotif-ind(excluding sms UDH).txt

End Sub