コードスニペット便利

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim fs As New System.IO.StreamReader(Me.MaskedTextBox1.Text, System.Text.Encoding.GetEncoding("Shift_JIS"))
        Dim st As String
        Dim Rog() As String
        Dim i As Integer = 0

        st = fs.ReadLine()

        Do While Not st Is Nothing
            ReDim Preserve Rog(i)
            Rog(i) = st
            i += 1
            st = fs.ReadLine()
        Loop

        st = ""

    End Sub

End Class

どういうコーディングがエレガントなんだね