附件的Form1的代码：
Private Sub Command1_Click()
   For i = 1 To 9
     s = s & Chr(10) & i
   Next
      s
      = 2
     Form2.Show 0
     Unload Me
End Sub
Form2“组合框”的代码：
Private Sub Form_Load()
   With Combo1
    .AddItem Combo1.ItemData(0)'这里有错，如何改，才能显示s
   End With
End Sub

[此贴子已经被作者于2016-5-6 08:53编辑过]

楼主这是演的哪一出？表示不明白你想实现什么功能

附件在3楼，清大侠帮忙。谢谢。

把Form2“组合框”的代码清空即可显示s

就是有一点不解：为何显示s时是一行（即123456789），而不是一列的某一个数（即chr(10)不起作用）？

可显示字符的区别
CHR（10） 不是可显示字符，在显示时，如果仅仅是单行字符时，WINDOWS下面会被吃掉。
可显示字符 >=32 ，从空格开始，<32的属不可显示字符，也叫控制字符，并不排除部分能被显示。

[此贴子已经被作者于2016-5-6 10:33编辑过]