VERSION 5.00
Begin VB.Form frmClip 
   Caption         =   "Буфер обмена"
   ClientHeight    =   3195
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
   Begin VB.TextBox txtUserArea 
      Height          =   1455
      Left            =   0
      MultiLine       =   -1  'True
      ScrollBars      =   3  'Both
      TabIndex        =   0
      Text            =   "clip.frx":0000
      Top             =   0
      Width           =   2175
   End
   Begin VB.Menu mnuFile 
      Caption         =   "Файл"
      Begin VB.Menu mnuExit 
         Caption         =   "Выход"
      End
   End
   Begin VB.Menu mnuEdit 
      Caption         =   "Правка"
      Begin VB.Menu mnuCopy 
         Caption         =   "Копировать"
      End
      Begin VB.Menu mnuCut 
         Caption         =   "Вырезать"
      End
      Begin VB.Menu mnuPaste 
         Caption         =   "Вставить"
      End
   End
End
Attribute VB_Name = "frmClip"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Resize()
txtUserArea.Width = frmClip.ScaleWidth
txtUserArea.Height = frmClip.ScaleHeight
End Sub

Private Sub mnuCopy_Click()
Clipboard.Clear
Clipboard.SetText (txtUserArea.SelText)




End Sub

Private Sub mnuCut_Click()
Clipboard.Clear
Clipboard.SetText (txtUserArea.SelText)
txtUserArea.SelText = ""
End Sub

Private Sub mnuExit_Click()
End
End Sub

Private Sub mnuPaste_Click()
txtUserArea.SelText = Clipboard.GetText()
End Sub
