vate Sub Form_Terminate()
   If (Forms.Count = 0) Then
      UnloadApp
   End If
End Sub

Private Sub mnuFile_Click(Index As Integer)
   Select Case Index
   Case 0
      Dim f As New frmTestARListBar
      f.Move Me.left + 8 * Screen.TwipsPerPixelX, Me.tOp + 8 *
       Screen.TwipsPerPixelY
      f.Show
   Case 2
      Unload Me
   End Select
End Sub

Private Sub mnuTest_Click(Index As Integer)
Dim sI As String
Dim sPrompt As String
Dim i As Long
Dim sI2 As String
   Select Case Index
   Case 0
      barMa