学步园

用最简单的代码获取系统信息包括（系统盘符，系统目录，用户名，系统引导等26项配置信息！！）

Option Explicit
'设置Text1的MultiLine属性为True
'设置Text1的ScrollBars属性为 2 - Vertical
Private Sub Form_Load()
Dim i As Integer
Dim txt As String

    For i = 1 To 10000
        If Environ(i) <> "" Then
            txt = txt & Environ(i) & vbCrLf
        Else
            Exit For
        End If
    Next i
    Text1.Text = txt
End Sub