www.pudn.com > ToolBar_ATL.rar > formMain.frm

VERSION 5.00 
Object = "{AE2B2C9E-39A5-4A86-BDBD-19AAB1F01FB9}#1.0#0"; "KToolBar.dll" 
Begin VB.Form formMain  
   Caption         =   "Form1" 
   ClientHeight    =   5415 
   ClientLeft      =   60 
   ClientTop       =   450 
   ClientWidth     =   8160 
   LinkTopic       =   "Form1" 
   ScaleHeight     =   5415 
   ScaleWidth      =   8160 
   StartUpPosition =   3  'Windows Default 
   Begin KTOOLBARLibCtl.KToolBarCtrl KToolBarCtrl1  
      Height          =   435 
      Left            =   1440 
      OleObjectBlob   =   "formMain.frx":0000 
      TabIndex        =   0 
      Top             =   720 
      Width           =   3255 
   End 
End 
Attribute VB_Name = "formMain" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Private Sub Command2_Click() 
 
End Sub 
 
Private Sub Form_Load() 
'    MsgBox TestCtrl1.Value 
'    TestCtrl1.Buttons(0).ToolTips = "VB ToolTips" 
End Sub 
 
Private Sub VControl1_GotFocus() 
 
End Sub 
 
Private Sub MContainer1_GotFocus() 
 
End Sub 
 
Private Sub KToolBarCtrl1_BtnClick(ByVal Index As Integer) 
    MsgBox Index 
End Sub