Private Sub btnReadTextFile_Click(ByVal sender _
      As System.Object, ByVal e As System.EventArgs) _
      Handles btnReadTextFile.Click
   Dim winPath As String
   Dim s As String
   Dim fname As String
   Dim sr As StreamReader
   Dim ex As Exception
      ' get the windows folder name
   winPath = System.Environment. _
         GetEnvironmentVariable("c:")
      If winPath = "" Then
         MessageBox.Show("Unable to retrieve the " & _
        "Windows path.", "Error in Reading Windows Path", _
        MessageBoxButtons.OK, MessageBoxIcon.Information)
         Return
      End If
      fname = winPath & "\win.txt"
      If File.Exists(fname) Then
         Try
            sr = File.OpenText(fname)
            s = sr.ReadToEnd
            sr.Close()
            textbox1.text = s
         Catch ex
            MessageBox.Show(ex.message)
            return
         End Try
      Else
         MessageBox.Show("The file " & fname & _
            " does not exist.")
         Return
      End If
   End Sub