VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
   Begin VB.TextBox Text1 
      Height          =   330
      Left            =   1260
      TabIndex        =   0
      Top             =   1260
      Width           =   2340
   End
   Begin VB.Menu mnuPopUp 
      Caption         =   "PopUp"
      Begin VB.Menu mnuCopy 
         Caption         =   "&Copy"
      End
      Begin VB.Menu mnuSelectAll 
         Caption         =   "&Select All"
      End
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private txtValidate As CTextFormat

Private Sub Form_Load()
    Set txtValidate = New CTextFormat
    Set txtValidate.TextBox = Text1
    Set txtValidate.ContextMenu = mnuPopUp
    'You could also use the following instead of the above two lines:
    'txtValidate.Init Text1, , mnuPopUp
End Sub