Dim maximoSvc As New Maximo.MXSR()
        Dim maximoSRArr(0) As Maximo.MXSR_SRType
        Dim maximoSR As New Maximo.MXSR_SRType()
        Dim changeDate As New Maximo.MXDateTimeType
        Dim DESCRIPTION_LONGDESCRIPTION As New Maximo.MXStringType
        Dim REPORTEDBY As New Maximo.MXStringType
        Dim IMPACT As New Maximo.MXLongType
        Dim reply(0) As Maximo.SRKeyType
        Dim cred As New System.Net.NetworkCredential
 
        Dim actLabCost As New Maximo.MXDoubleType
 
        cred.UserName = "maxadmin"
        cred.Password = "maxadmin"
        maximoSvc.Credentials = cred
 
 
        DESCRIPTION_LONGDESCRIPTION.Value = "longdesc"
        REPORTEDBY.Value = "USER"
        IMPACT.Value = 4
 
 
        maximoSR.DESCRIPTION_LONGDESCRIPTION = DESCRIPTION_LONGDESCRIPTION
        maximoSR.REPORTEDBY = REPORTEDBY
        maximoSR.AFFECTEDPERSON = REPORTEDBY
        maximoSR.IMPACT = IMPACT
        changeDate.Value = System.DateTime.Now
        maximoSR.CHANGEDATE = changeDate
        maximoSR.URGENCY = IMPACT
        actLabCost.Value = 0
        maximoSR.ACTLABCOST = actLabCost
        maximoSRArr(0) = maximoSR
        reply = maximoSvc.CreateMXSR(maximoSRArr, System.DateTime.Now, True, "", "EN", "11111", "7.0")
        Dim MaximoTicketid As String
        MaximoTicketid = reply(0).TICKETID.Value