Private Sub Form_Load()
Me.Width = 9375
End Sub

Private Sub Form_Resize() '这样写flash控件倒是可以随窗体放大了,但是不能隐藏列表，怎么解决？
On Error Resume Next
StatusBar1.Move StatusBar1.Left, Me.ScaleHeight - StatusBar1.Height - 50, Me.ScaleWidth - 200
TreeView1.Move Me.ScaleWidth - TreeView1.Width - 80, TreeView1.Top, TreeView1.Width, Me.ScaleHeight - StatusBar1.Height - 200

Flash.Move Flash.Left, Flash.Top, TreeView1.Left - 200, StatusBar1.Top - 100
End Sub

Private Sub Picture1_Click() '显示和隐藏列表
If Me.Width = 9375 Then
        Me.Width = 6435
        Picture1.Picture = Pic2.Picture
    ElseIf Me.Width = 6435 Then
        Me.Width = 9375
        Picture1.Picture = Pic1.Picture
    End If

End Sub

贴图吧

俺是想Flash控件能够随窗体变大小，同时又能实现隐藏与显示treeview1控件的，源码在这，谢谢

[ 本帖最后由 ymhy12345 于 2012-9-14 15:27 编辑 ]

使用一个全局变量
在Private Sub Picture1_Click()中修改变量
在Private Sub Form_Resize()中根据变量值修改控件

俺不会写Flash控件能够随窗体变大小啊，
Private Sub Form_Load()
Me.Width = 9375
End Sub

Private Sub Form_Resize() '写成这样FLASH控件虽然可以随窗体变大小了，但隐藏与显示列表又不能用了，删除 Form_Resize事件下面的代码，隐藏与显示列表又能用了，两者总不能兼得，
On Error Resume Next
StatusBar1.Move StatusBar1.Left, Me.ScaleHeight - StatusBar1.Height - 50, Me.ScaleWidth - 200
TreeView1.Move Me.ScaleWidth - TreeView1.Width - 80, TreeView1.Top, TreeView1.Width, Me.ScaleHeight - StatusBar1.Height - 200

Flash.Move Flash.Left, Flash.Top, TreeView1.Left - 200, StatusBar1.Top - 100
End Sub

Private Sub Picture1_Click() '显示和隐藏列表
If Me.Width = 9375 Then
        Me.Width = 6435
        Picture1.Picture = Pic2.Picture
    ElseIf Me.Width = 6435 Then
        Me.Width = 9375
        Picture1.Picture = Pic1.Picture
    End If

End Sub

介个有点坑啊