Private Sub cmdGet_Click()
Me.txtEnv.Text=vbNullString
Dim strEnv As String
For inCount=1 to 32
strEnv=strEnv & Environ$(intCount) & vbCrLf
Next intCount
Me.txtEnv=strEnv
End Sub
Private Sub cmdGet_Click()
Me.txtEnv.Text=vbNullString
Dim strEnv As String
For inCount=1 to 32
strEnv=strEnv & Environ$(intCount) & vbCrLf
Next intCount
Me.txtEnv=strEnv
End Sub