Caption = "This PassBox has the XP avanced features:"
Height = 195
Left = 180
TabIndex = 12
Top = 3480
Width = 3120
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "Password PassBox Control"
Height = 195
Left = 3300
TabIndex = 9
Top = 2760
Width = 1905
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "Password VB TextBox"
Height = 195
Left = 180
TabIndex = 8
Top = 2760
Width = 1560
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "MultiLine PassBox Control"
Height = 195
Left = 3300
TabIndex = 5
Top = 900
Width = 1830
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "MultiLine VB TextBox"
Height = 195
Left = 180
TabIndex = 4
Top = 900
Width = 1485
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "Standard PassBox Control"
Height = 195
Left = 3300
TabIndex = 1
Top = 180
Width = 1875
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "Standard VB TextBox"
Height = 195
Left = 180
TabIndex = 0
Top = 180
Width = 1530
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Const UDS_ALIGNLEFT As Long = &H8
Private Const UDS_ALIGNRIGHT As Long = &H4
Private Const UDS_AUTOBUDDY As Long = &H10
Private Const UDS_ARROWKEYS As Long = &H20
Private Const UDS_HORZ As Long = &H40
Private Const UDS_HOTTRACK As Long = &H100
Private Const UDS_NOTHOUSANDS As Long = &H80
Private Const UDS_SETBUDDYINT As Long = &H2
Private Const UDS_WRAP As Long = &H1
Private Const WS_GROUP As Long = &H20000
Private Const WS_BORDER As Long = &H800000
Private Const WS_CHILD As Long = &H40000000
Private Const WS_VISIBLE As Long = &H10000000
Private Declare Function CreateUpDownControl Lib "comctl32.dll" (ByVal dwStyle As Long, ByVal X As Long, ByVal Y As Long, ByVal cX As Long, ByVal cY As Long, ByVal hParent As Long, ByVal nID As Long, ByVal hInst As Long, ByVal hBuddy As Long, ByVal nUpper As Long, ByVal nLower As Long, ByVal nPos As Long) As Long
Private Declare Sub InitCommonControls Lib "comctl32.dll" ()
Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long
Private lModule As Long
Private Sub Command3_Click()
Call PassBox4.ShowBalloonTip("Enter any word in the search box, then press enter", "Search help", TTI_INFO)
End Sub
Private Sub Form_Initialize()
lModule = LoadLibrary("Shell32.dll")
InitCommonControls
End Sub
Private Sub Form_Load()
'Dim lStyle As Long
' lStyle = WS_VISIBLE Or WS_CHILD Or WS_GROUP Or UDS_SETBUDDYINT Or UDS_ALIGNRIGHT