www.pudn.com > QQ2009.rar > frmDropDown.frm, change:2009-11-15,size:931b


VERSION 5.00 
Begin VB.Form frmDropDown  
   AutoRedraw      =   -1  'True 
   BackColor       =   &H00FFFFFF& 
   BorderStyle     =   0  'None 
   Caption         =   "Account List" 
   ClientHeight    =   3090 
   ClientLeft      =   0 
   ClientTop       =   0 
   ClientWidth     =   4680 
   LinkTopic       =   "Form1" 
   ScaleHeight     =   206 
   ScaleMode       =   3  'Pixel 
   ScaleWidth      =   312 
   ShowInTaskbar   =   0   'False 
End 
Attribute VB_Name = "frmDropDown" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
 
Private Sub Form_Load() 
    SetWindowPos Me.hWnd, -1, 0, 0, 0, 0, 3 
    mDropDown.SubClass Me.hWnd 
End Sub 
 
Private Sub Form_Unload(Cancel As Integer) 
    mDropDown.UnSubClass Me.hWnd 
End Sub 
 
Public Sub ReDrawDrop() 
    Me.Line (0, 0)-(ScaleWidth - 1, ScaleHeight - 1), &HD19300, B 
End Sub