Private Sub Form_Load()

   Set Frame0 = Controls.Add("VB.frame", "Frame0")  '创建能整体移动的frame
  ' Set Frame0.Container = Form1
   Frame0.Move 400, 1000, 4000, 5000
   Frame0.BackColor = &HFFFFF
   Frame0.Visible = True
   
   Set VScroll1 = Controls.Add("VB.VScrollbar", "VScroll1")  '创建能控件frame移动的滚动条
 '  Set VScroll1.Container = Form
   VScroll1.Move Frame0.Width + 400, 1000, 400, Frame0.Height
   VScroll1.TabStop = False
   VScroll1.Visible = True
   
   VScroll1.Min = 0
   VScroll1.Max = Frame0.Height
   VScroll1.SmallChange = 100
   VScroll1.LargeChange = Frame0.Height
   
End Sub
Private Sub VScroll1_Change()
  Frame0.Move 400, -VScroll1.Value
End Sub

Private Sub VScroll1_Scroll()   '请问对于动态创建的可不可以这样写Private Sub VScroll1_Scroll()   
  Frame0.Move 400, -VScroll1.Value
End Sub

[此贴子已经被作者于2015-12-3 18:41编辑过]

看不出有什么共性，如果VB是直接使用操作系统标准控件，用VFP也许还能解释。
如果想用VFP写代码，也只能模拟出效果。

这不是VFP代码

楼主明确讲了是VB代码。

因vb没有我们论坛活跃，各程序有一定的共性，所以才求助本论坛。

学习VB

已解决。