' Copyright 2008 ESRI
' 
' All rights reserved under the copyright laws of the United States
' and applicable international laws, treaties, and conventions.
' 
' You may freely redistribute and use this sample code, with or
' without modification, provided you include the original copyright
' notice and use restrictions.
' 
' See use restrictions at <your ArcGIS install location>/developerkit/userestrictions.txt.
' 




Public dRailOffset As Double
Public lContructOption As Long

Private Sub cmdAction_Click(Index As Integer)
  If Index = 0 Then  'OK
    dRailOffset = CDbl(txtInput(0).Text)
  Else  'Cancel
    dRailOffset = 0
  End If
  If optLoop(0).Value Then
    lContructOption = 0
  Else
    lContructOption = 1
  End If
  
  Me.Hide
End Sub

Private Sub Form_Load()
  If dRailOffset = 0 Then
    txtInput(0).Text = ""
  Else
    txtInput(0).Text = CStr(dRailOffset)
  End If
  
  optLoop(lContructOption).Value = True
End Sub