Make your own free website on

[an error occurred while processing this directive]
    cbSize As Long
    style As Long
    lpfnWndProc As Long
    cbClsExtra As Long
    cbWndExtra As Long
    hInstance As Long
    hIcon As Long
    hCursor As Long
    hbrBackground As Long
    lpszMenuName As String
    lpszClassName As String
    hIconSm As Long
End Type
Private Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long
Private Declare Function GetClassInfoEx Lib "user32" Alias "GetClassInfoExA" (ByVal hInstance As Long, ByVal lpClassName As String, lpWndClass As WNDCLASSEX) As Long
Private Sub Form_Paint()
    'KPD-Team 1999
    'Set the structure size
    WCX.cbSize = Len(WCX)
    'Get the class info
    GetClassInfoEx ByVal 0&, "EDIT", WCX
    'Clear the screen
    Me.Print "This is the default cursor for a textbox:"
    'Draw the default cursor on the form
    DrawIcon Me.hdc, 0, 15, WCX.hCursor
End Sub

Copyright © 1998-2000, The KPD-Team.
Send mail to with comments about this web site.
This site is located at