Hem / Tips & tricks
Option ExplicitPrivate Sub Command1_Click()Dim i As IntegerFor i = 1 To 30 Text1.Text = Text1.Text & Environ(i) & vbCrLfNextEnd Sub