VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmDNA_Row 
   Caption         =   "Provide reference row"
   ClientHeight    =   3060
   ClientLeft      =   45
   ClientTop       =   495
   ClientWidth     =   4710
   OleObjectBlob   =   "frmDNA_Row.frx":0000
   StartUpPosition =   1  'CenterOwner
End
Attribute VB_Name = "frmDNA_Row"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub cmdCancel_Click()
  DNA_Macros.RowNum = 0
  Unload Me
End Sub

Private Sub cmdOK_Click()
  If IsNumeric(txtRowNumber.Text) Then
    DNA_Macros.RowNum = txtRowNumber.Text
  End If
  Unload Me
End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()
  DNA_Macros.RowNum = 0
End Sub