Access of shared member, constant member, enum member or nested type through an instance; qualifying expression will not be evaluated.

Private Sub cmdNoTryCatch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdNoTryCatch.Click
		''--Ask to make sure the user is willing to possibly blow up the program.
		Dim strMsg As String = "The following code has no error handling and will cause an unhandled exception if a file is not found. Do you want to continue?"
        If MessageBox.Show(strMsg, Me.Text, MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) = DialogResult.Yes Then
            ''-- Use the FileStream class from the System.IO Namespace (see Imports at top of file).
            Dim fs As FileStream

            ''-- This command will fail if the file does not exist.
            fs = File.Open(Me.txtFileName.Text, FileMode.Open)
            MessageBox.Show("The size of the file is: " & fs.Length, Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Information)
            fs.Close()

        End If
	End Sub