Visual Basic

Enum HeaderIconOpenCloseType
'open
        arrow1 = 8679
        triangle1 = 8711
        V1 = 8744
        small_v1 = 8964
'closed
        arrow0 = 8681
        triangle0 = 8710
        V0 = 8743
        small_v0 = 8963
End Enum

.ListItems(RM).SubItems(D) = ""
          .ListItems(RM).ListSubItems(D).ReportIcon = 1

Private Shared Function IsBlackColor(ByVal c As Color) As Boolean
        If (c.R + c.G + c.B) <> 255 * 3 Then
            Return True
        End If
        Return False
    End Function

<ClientData>
		<prop name="CGuid" type="0">403131A1-95D</prop>
		<prop name="CState" type="0">CA</prop>
		<prop name="CFName1" type="0">Lily</prop>
		<prop name="CLName1" type="0"></prop>
		<prop name="CEmail" type="0">lily@13.com</prop>
	</ClientData>

Dim DOM As MSXML2.DOMDocument
    Dim Node As MSXML2.IXMLDOMNode
    Set DOM = New MSXML2.DOMDocument

With DOM
        .async = False
        .preserveWhiteSpace = True
    If .Load("C:\HouseMaster\CloneRPT.hr4") Then
            .setProperty "SelectionLanguage", "XPath"
        Set Node = .SelectSingleNode("//ClientData/prop[@name='CEmail']")
                Node.Text = "Someone@aol.com"

<pre>    End If
    End With

<pre>package cms is
    -- 1 => OK, 0 => ERROR
  

    function validateUser(  username    in  cms_user.cu_username%TYPE,
                            passwd      in  varchar2,
                            errmsg      out varchar2 )
                    return number;


END;

<pre>Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        
        conn.Open()

   
        Dim oracmd As New OracleCommand
        oracmd.Connection = conn
        oracmd.CommandText = "cms.validateUser( username, passwd, msg )"
        oracmd.CommandType = CommandType.StoredProcedure
        oracmd.Parameters.Add(New OracleParameter("username", OracleType.VarChar)).Value = TxtUsername.Text.Trim
        oracmd.Parameters.Add(New OracleParameter("passwd", OracleType.VarChar)).Value = TxtPassword.Text.Trim
        '  oracmd.Parameters.Add(New OracleParameter("msg", OracleType.VarChar)).Value = Label1.Text.Trim
      

        oracmd.Parameters.Add("msg", OracleType.VarChar).Value = Label1.Text
       

        oracmd.Parameters("msg").Direction = ParameterDirection.Output
        oracmd.ExecuteNonQuery()
        conn.Close()

   

    End Sub

ORA-06550: line 1, column 7:
PLS-00801: internal error [22503]
ORA-06550: line 1, column 7:
PL/SQL: Statement ignored