Private Sub Command1_Click()
If Text1.Text > Text2.Text Then
Text3.Text = Text1.Text
Else
Text3.Text = Text2.Text
End If
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
有谁帮我看看这哪有问题，谢了！！！

我试了谢谢你们！！！

Private Sub ShockwaveFlash1_OnReadyStateChange(newState As Long)
Shockwave.Movie = "0729_141415"
Shockwave.play
End Sub

Private Sub WindowsMediaPlayer1_OpenStateChange(ByVal newState As Long)
WindowsMediaPlayer1.FileName = "突然的自我"
WindowsMediaPlayer1.play
End Sub
还要什么调节吗？我怎么弄不出来呢！