Question

怎样用VB语言实现两张图片的交换

Answer 1

不明白你的具体意思，我也不是特别懂，不知道能不能达到你要的效果
定义两张图片，PICTURE1在下面一层，PICTURE2在上面一层，在定义一个时间控件
Private Sub Timer1_Timer()
x = x + 1
If x > 1 Then
x = 0
End If
If x = 0 Then
Picture2.Visible = True
Else
Picture2.Visible = False
End If
End Sub

Answer 2

Private Sub Command1_Click()
Command1.Picture = Picture1.Picture
Picture1.Picture = Picture2.Picture
Picture2.Picture = Command1.Picture
Command1.Picture = LoadPicture("")
End Sub