VERSION 5.00
Begin VB.Form frmPascal
  Caption         =   "Pascal Triangle"
  ClientHeight    =   2415
  ClientLeft      =   60
  ClientTop       =   345
  ClientWidth     =   4170
  BeginProperty Font
     Name            =   "MS Sans Serif"
     Size            =   9.75
     Charset         =   0
     Weight          =   400
     Underline       =   0   'False
     Italic          =   0   'False
     Strikethrough   =   0   'False
  EndProperty
  LinkTopic       =   "Form1"
  MaxButton       =   0   'False
  ScaleHeight     =   2415
  ScaleWidth      =   4170
  StartUpPosition =   2  'CenterScreen
  Begin VB.TextBox txtText
     Height          =   975
     Left            =   120
     MultiLine       =   -1  'True
     ScrollBars      =   2  'Vertical
     TabIndex        =   5
     Top             =   600
     Width           =   3975
  End
  Begin VB.CommandButton cmdGo
     Caption         =   "Go!"
     Enabled         =   0   'False
     Height          =   375
     Left            =   120
     TabIndex        =   3
     ToolTipText     =   "Generates the given row"
     Top             =   1680
     Width           =   1935
  End
  Begin VB.CommandButton cmdCopy
     Caption         =   "Copy"
     Height          =   375
     Left            =   2160
     TabIndex        =   2
     ToolTipText     =   "Copies the answer to clipboard"
     Top             =   1680
     Width           =   1935
  End
  Begin VB.TextBox txtRow
     Height          =   360
     Left            =   1680
     TabIndex        =   1
     Top             =   120
     Width           =   2415
  End
  Begin VB.Label Label1
     Caption         =   "By: Sang Nguyen"
     BeginProperty Font
        Name            =   "Times New Roman"
        Size            =   8.25
        Charset         =   0
        Weight          =   400
        Underline       =   0   'False
        Italic          =   -1  'True
        Strikethrough   =   0   'False
     EndProperty
     Height          =   255
     Left            =   120
     TabIndex        =   4
     Top             =   2160
     Width           =   1215
  End
  Begin VB.Label lblRow
     Caption         =   "Enter row to find:"
     Height          =   255
     Left            =   120
     TabIndex        =   0
     Top             =   120
     Width           =   1455
  End
End
Attribute VB_Name = "frmPascal"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub cmdCopy_Click()
   Clipboard.Clear
   Clipboard.SetText txtText.Text
End Sub
Private Sub cmdGo_Click()
   Dim answer As String, Row As Double, X As Double
   
   Row = txtRow.Text
   If Row <= 170 Then
       For X = 0 To Row
           answer = answer & ", " & nCr(Row, X)
       Next X
       answer = Mid(answer, 2, Len(answer))
       txtText.Text = answer
   Else
       MsgBox "Highest number allowed is 170.", vbCritical, "Error"
       txtRow.Text = "170"
   End If
End Sub
Private Sub txtRow_Change()
   If IsNumeric(txtRow.Text) = True Then
       cmdGo.Enabled = True
   Else
       cmdGo.Enabled = False
   End If
   txtText.Text = ""
End Sub