Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Partial Class test
    Inherits System.Web.UI.Page
    Shared dt As New DataTable
    Shared dr As DataRow

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        'Dim kid As String
        'kid = EncodeURL("0000KKE")
        'kid = DecodeURL(kid)
        ''Dim dt, dt1 As DataTable
        ''dt = ReturnDataTable("Select CategoryName from Category_Distinct")
        ''dt1 = ReturnDataTable("Select CategoryName from Category_Distinct")
        ''dt.Merge(dt1)

        ''Dim str As String
        'str = ""
    End Sub


    <System.Runtime.InteropServices.DllImport("coredll")> _
Private Shared Function GetCapture() As IntPtr
    End Function

    <System.Runtime.InteropServices.DllImport("coredll")> _
    Private Shared Function GetWindowLong(ByVal hWnd As IntPtr, ByVal nIndex As Integer) As Integer
    End Function

    <System.Runtime.InteropServices.DllImport("coredll")> _
    Private Shared Function SetWindowLong(ByVal hWnd As IntPtr, ByVal nIndex As Integer, ByVal dwNewLong As Integer) As Integer
    End Function
    Private Const GWL_STYLE As Integer = -16
    Private Const BS_CENTER As Integer = 768
    Private Const BS_VCENTER As Integer = 3072
    Private Const BS_MULTILINE As Integer = 8192



    'Private Sub SetButtonStyle(ByVal ctrl As Button)
    '    Dim hWnd As IntPtr
    '    Dim style As Integer

    '    ctrl.Capture = True
    '    hWnd = GetCapture()
    '    ctrl.Capture = False

    '    style = GetWindowLong(hWnd, GWL_STYLE)
    '    SetWindowLong(hWnd, GWL_STYLE, (style Or BS_CENTER Or BS_VCENTER Or BS_MULTILINE))

    '    ctrl.Refresh()

    'End Sub


End Class