Visual Basic

<br />
        Private Class TitleBarInfo<br />
            <System.Runtime.InteropServices.DllImport("user32")> Private Shared Function GetTitleBarInfo(ByVal hWnd As IntPtr, ByRef pti As TITLEBARINFO) As Boolean<br />
            End Function<br />
<br />
            Private Const STATE_SYSTEM_FOCUSABLE As Integer = &H100000<br />
            Private Const STATE_SYSTEM_INVISIBLE As Short = &H8000S<br />
            Private Const STATE_SYSTEM_OFFSCREEN As Integer = &H10000<br />
            Private Const STATE_SYSTEM_UNAVAILABLE As Short = &H1S<br />
            Private Const STATE_SYSTEM_PRESSED As Short = &H8S<br />
            Private Const CCHILDREN_TITLEBAR As Short = 5<br />
            Public Structure RECT<br />
                Public left As Integer<br />
                Public top As Integer<br />
                Public right As Integer<br />
                Public bottom As Integer<br />
            End Structure<br />
            <StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Ansi)> Private Structure TITLEBARINFO<br />
                Dim cbSize As Integer<br />
                Dim rcTitleBar As RECT<br />
                <MarshalAs(UnmanagedType.ByValArray, SizeConst:=CCHILDREN_TITLEBAR + 1)> Dim rgstate() As Integer<br />
                Public Sub Initialize()<br />
                    ReDim rgstate(CCHILDREN_TITLEBAR + 1)<br />
                End Sub<br />
            End Structure<br />
<br />
            Private Shared Function GetTitleBarInfo(ByVal Handle As IntPtr) As TITLEBARINFO<br />
                Dim TitleInfo As TITLEBARINFO<br />
                'Initialize structure<br />
<br />
                TitleInfo.Initialize()<br />
                TitleInfo.cbSize = Len(TitleInfo)<br />
<br />
                ' GetTitleBarInfo(Handle, TitleInfo)<br />
                GetTitleBarInfo(Handle, TitleInfo)<br />
                'Show some of that information<br />
                Return TitleInfo<br />
            End Function<br />
           <br />
<br />
            Public Shared ReadOnly Property CaptionButtonCount(ByVal Handle As IntPtr) As Integer<br />
                Get<br />
                    Dim count As Integer<br />
<br />
                    Dim tbi As TITLEBARINFO<br />
                    tbi = GetTitleBarInfo(Handle)<br />
<br />
                    'Index  TitleBar Element<br />
                    '0      The title bar itself. <br />
                    '1      Reserved. <br />
                    '2      Minimize button. <br />
                    '3      Maximize button. <br />
                    '4      Help button. <br />
                    '5      Close button. <br />
                    Dim x As Integer<br />
                    For x = 2 To 5<br />
                        If Not (tbi.rgstate(x) = STATE_SYSTEM_INVISIBLE) And Not tbi.rgstate(x) = 0 Then<br />
                            count += 1<br />
                        End If<br />
                    Next x<br />
                    Return count<br />
                End Get<br />
            End Property<br />
<br />
        End Class<br />
<br />

   Private Sub frmCJ_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
        Dim dsOrg As DataSet<br />
<br />
        If m_ConnectionString = "prod" Then<br />
            Dim wsrv As New seoweb.Service1<br />
            dsOrg = wsrv.CJGetOrganization<br />
        Else<br />
            Dim wsrv As New seodev.Service1<br />
            dsOrg = wsrv.CJGetOrganization<br />
        End If<br />
<br />
        'common stuff<br />
        Dim DV As DataView = dsOrg.Tables(0).DefaultView<br />
        With cbOrganization<br />
            .DataSource = DV<br />
            .DisplayMember = "organization"<br />
            .ValueMember = "organization"<br />
        End With<br />
    End Sub