魔兽 著名盗贼玩家:VB6.0如何放入动画, VB6.0如何做链接???

VB中做动画可以使用FLASH控件，你的系统中要是没有的话，请给我发消息我给你一个。

VB做链接可以这样写：
声明 ShellExecute 函数；在 form 上建立 label、line 控件各一个(myHttp、Line1)，再仿照以下代码，即可打开浏览器登录 http://why100000.at.china.com 网站。
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub myHttp_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Line1.Visible = False
End Sub

Private Sub myHttp_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Line1.Visible = True
End Sub
Private Sub Form_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Line1.Visible = False
End Sub
Private Sub myHttp_Click()
Dim HttpJump
Dim MyUrl As String
MyUrl = "http://why100000.at.china.com"
HttpJump = ShellExecute(0&, vbNullString, MyUrl, vbNullString, vbNullString, vbNormalFocus)
End Sub