Private Sub Command1_Click()
Clipboard.Clear
Clipboard.SetData Picture1.Picture
Picture1.Picture = Picture2.Picture
Picture2.Picture = Clipboard.GetData
End Sub

Private Sub Form_Load()
Command1.Caption = "文本转换"
End Sub

Private Sub Picture1_load()
Picture1.Picture = "VB事操作方便的可视化编程环境"
End Sub

运行时没有错误,代码有严重的错误,
Picture1没有Load事件,并且Picture1.Picture应该是IPictureDisp类型,而不是String型,所以Picture1.Picture = "VB事操作方便的可视化编程环境"这句是无稽之谈

那应该 如何修改 谢谢

谁知道  讲解下撒  

Private Sub Command1_Click()
Clipboard.Clear
Clipboard.SetData Picture1.Picture
Picture1.Picture = Picture2.Picture
Picture2.Picture = Clipboard.GetData
End Sub

Private Sub Form_Load()
Command1.Caption = "文本转换"
Picture1.Print "VB事操作方便的可视化编程环境"
End Sub