getclassinfo registerwindo

[thermo_ll]

how can i use getclassinfo registerwindowex...............

[manavo11]

GetClassInfo example :

Private Type WNDCLASS
    style As Long
    lpfnwndproc As Long
    cbClsextra As Long
    cbWndExtra2 As Long
    hInstance As Long
    hIcon As Long
    hCursor As Long
    hbrBackground As Long
    lpszMenuName As String
    lpszClassName As String
End Type
Private Declare Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long
Private Declare Function GetClassInfo Lib "user32" Alias "GetClassInfoA" (ByVal hInstance As Long, ByVal lpClassName As String, lpWndClass As WNDCLASS) As Long
Private Sub Form_Paint()
    'KPD-Team 1999
    'URL: [url]http://www.allapi.net/[/url]
    'E-Mail: [email][email protected][/email]
    Dim WC As WNDCLASS
    'Get class info
    GetClassInfo ByVal 0&, "BUTTON", WC
    'Clear the form
    Me.Cls
    'Print the retrieved information to the form
    Me.Print "The button's default background is set to color-number:" + Str$(GetSysColor(WC.hbrBackground))
End Sub

[thermo_ll]

thank for the code ... but what i need is get all the classinfo of scicalc "calculator" info buttons and the text box ..... how can i use getclassinfo or registerclass

thanks