关于引用变量储存字符串的问题

同问， 顶!

谢谢楼上的回答,能不能使用转义字符实现?

可以采用变通的方法：
dim a as string
select case a
case "Form1"
Form1.height=640
case "Form2"
Form2.height=640
……
end select

楼上的楼上还是不能解决自动转换的问题，如果控件太多也是很麻烦的

再帮顶!

不是回答你了吗?
见 http://community.Codefund.cn/Expert/topic/5268/5268558.xml?temp=.8761103

Private Sub Command1_Click()
Dim a As String
Dim f As Form

a = "form2"

Set f = Forms.Add(a)

f.BackColor = vbRed
f.Height = 640
f.Show
End Sub