VERSION 5.00
Begin VB.Form Form1 
   BackColor       =   &H80000007&
   Caption         =   "Form1"
   ClientHeight    =   6990
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4545
   LinkTopic       =   "Form1"
   ScaleHeight     =   6990
   ScaleWidth      =   4545
   StartUpPosition =   3  'Windows Default
   Begin VB.TextBox Text1 
      Height          =   3375
      Left            =   120
      Locked          =   -1  'True
      MultiLine       =   -1  'True
      ScrollBars      =   3  'Both
      TabIndex        =   9
      Top             =   3120
      Width           =   4335
   End
   Begin VB.TextBox Nametxt 
      Height          =   285
      Left            =   840
      TabIndex        =   7
      Top             =   840
      Width           =   1815
   End
   Begin VB.CheckBox cpniyeschk 
      BackColor       =   &H00000000&
      Caption         =   "CPNI Yes"
      ForeColor       =   &H00FFFFFF&
      Height          =   255
      Left            =   120
      TabIndex        =   6
      Top             =   480
      Width           =   1095
   End
   Begin VB.CheckBox cpninochk 
      BackColor       =   &H00000000&
      Caption         =   "CPNI No"
      ForeColor       =   &H00FFFFFF&
      Height          =   255
      Left            =   1200
      TabIndex        =   5
      Top             =   480
      Width           =   975
   End
   Begin VB.TextBox CommentsTxt 
      Height          =   1215
      Left            =   840
      MultiLine       =   -1  'True
      ScrollBars      =   3  'Both
      TabIndex        =   4
      Top             =   1200
      Width           =   3615
   End
   Begin VB.CommandButton CopyBtn 
      Caption         =   "Copy To I-Coms"
      Height          =   375
      Left            =   840
      MaskColor       =   &H00000000&
      Style           =   1  'Graphical
      TabIndex        =   3
      Top             =   2640
      Width           =   1335
   End
   Begin VB.CommandButton ClearBtn 
      Caption         =   "Clear"
      Height          =   375
      Left            =   2760
      TabIndex        =   2
      Top             =   2640
      Width           =   975
   End
   Begin VB.TextBox timetxt 
      BackColor       =   &H80000003&
      Height          =   285
      Left            =   960
      Locked          =   -1  'True
      TabIndex        =   1
      TabStop         =   0   'False
      Top             =   120
      Width           =   1455
   End
   Begin VB.CommandButton Time 
      Caption         =   "Time"
      Height          =   255
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   735
   End
   Begin VB.Label Label1 
      BackColor       =   &H80000007&
      Caption         =   "Comments:"
      ForeColor       =   &H00FFFFFF&
      Height          =   255
      Left            =   0
      TabIndex        =   10
      Top             =   1200
      Width           =   855
   End
   Begin VB.Label NameLbl 
      BackColor       =   &H00000000&
      Caption         =   "Name:"
      ForeColor       =   &H00FFFFFF&
      Height          =   255
      Left            =   0
      TabIndex        =   8
      Top             =   840
      Width           =   495
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Function TrimString(Text As String, ML As Long) As String
On Error Resume Next
TrimString = ""
Dim TextLines() As String
Dim Lines As Long
For i = 1 To Len(Text)
    If (Mid(Text, i, 2) = vbCrLf) Then Lines = Lines + 1
Next i
TextLines() = Split(Text, vbCrLf)
For i = 0 To Lines + 1
    If (i <> Lines) Then
        TrimString = TrimString & Left(TextLines(i), ML) & vbNewLine
    Else
        TrimString = TrimString & Left(TextLines(i), ML)
        Exit For
    End If
Next i
End Function

Private Sub ClearBtn_Click()
Me.cpniyeschk = False
Me.cpninochk = False
Me.Nametxt = ""
Me.CommentsTxt = ""
Me.timetxt = ""
Clipboard.Clear
End Sub

Private Sub CopyBtn_Click()
CommentsTxt = TrimString(CommentsTxt, 35)
   If cpniyeschk.Value = vbChecked Then
  Text1.Text = "CPNI Yes - " & timetxt.Text & vbCrLf
  End If
  If cpninochk.Value = vbChecked Then
  Text1.Text = "CPNI No - " & timetxt.Text & vbCrLf
  End If
  Text1.Text = Nametxt.Text & vbCrLf
  Text1.Text = CommentsTxt.Text
  Clipboard.SetText vbCFText
  MsgBox strCopy, , "This Will Be Pasted"
  End Sub
  
Private Sub cpninochk_Click()
If cpninochk.Value = vbChecked Then
cpniyeschk.Value = False
End If
End Sub

Private Sub cpniyeschk_Click()
If cpniyeschk.Value = vbChecked Then
cpninochk.Value = False
End If
End Sub

Private Sub Picture1_Click()

End Sub

Public Function MyTime() As String
  MyTime = Format(Now, "MM-DD-yy HHmm")
End Function

Private Sub Time_Click()
timetxt.Text = MyTime & " Hrs"
End Sub