请高手帮忙讲解qq界面代码！谢谢。。。
问题：1.为什么qq界面中只出现一个image图片框，而代码中就出现了image2,image3,image4这些呢？2.为什么代码中没有出现image1呢？
就二个问题
Const TS As String = "登录提示："
'当输入帐号时
Private Sub Combo1_Change()
'向对应的帐号添加对应的图片
If Combo1.Text = "1161738714" Then
Image2.Picture = LoadPicture("D:\沈晨\VB\2012年1—3月\2012-03-16 001\1161738714.picture.jpg")
ElseIf Combo1.Text = "1179845640" Then
Image2.Picture = LoadPicture("D:\沈晨\VB\2012年1—3月\2012-03-16 001\1179845640.picture.jpg")
ElseIf Combo1.Text = "1079788293" Then
Image2.Picture = LoadPicture("D:\沈晨\VB\2012年1—3月\2012-03-16 001\1079788293.picture.jpg")
Else
Image2.Picture = LoadPicture("D:\沈晨\VB\2012年1—3月\2012-03-16 001\QQ截图20120316142952.jpg")
End If
End Sub
'当点击下拉列表框选择帐号时
Private Sub Combo1_Click()
'向对应的帐号添加对应的图片
If Combo1.Text = "1161738714" Then
Image2.Picture = LoadPicture("D:\沈晨\VB\2012年1—3月\2012-03-16 001\1161738714.picture.jpg")
ElseIf Combo1.Text = "1179845640" Then
Image2.Picture = LoadPicture("D:\沈晨\VB\2012年1—3月\2012-03-16 001\1179845640.picture.jpg")
ElseIf Combo1.Text = "1079788293" Then
Image2.Picture = LoadPicture("D:\沈晨\VB\2012年1—3月\2012-03-16 001\1079788293.picture.jpg")
Else
Image2.Picture = LoadPicture("D:\沈晨\VB\2012年1—3月\2012-03-16 001\QQ截图20120316142952.jpg")
End If
End Sub
Private Sub Form_Load()
'改变指定 组件 字体的颜色
Label3.ForeColor = RGB(Int(Rnd() * 24), Int(Rnd() * 145), Int(Rnd() * 255))
Label4.ForeColor = RGB(Int(Rnd() * 24), Int(Rnd() * 145), Int(Rnd() * 255))
'向 组件 添加内容
Combo1.AddItem "1161738714"
Combo1.AddItem "1179845640"
Combo1.AddItem "1079788293"
'向 组件 添加内容
List1.AddItem "在线"
List1.AddItem "隐身"
List1.AddItem "离开"
List1.AddItem "忙碌"
'向 组件 添加内容
Option1.Caption = "记住密码"
Option2.Caption = "自动登录"
'向 组件 添加内容
Command2.Caption = "网络设置"
End Sub
'当鼠标移到 登录 图片外 （组件 Imager3 前）改变图片
Private Sub Image3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image4.Picture = LoadPicture("D:\沈晨\VB\2012年1—3月\2012-03-16 001\登录.jpg")
'改变字体 --> 不显示字体下划线
Label3.FontUnderline = False
Label4.FontUnderline = False
End Sub
'当鼠标按下 登录 图片时 改变图片
Private Sub Image4_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image4.Picture = LoadPicture("D:\沈晨\VB\2012年1—3月\2012-03-16 001\登录2.jpg")
End Sub
'当鼠标移到 登录 图片内 改变图片
Private Sub Image4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'当鼠标移到可链接 字体上方时 改变鼠标图案为 手指状
Image4.MousePointer = 99
Image4.Picture = LoadPicture("D:\沈晨\VB\2012年1—3月\2012-03-16 001\登录1.jpg")
End Sub
'当鼠标抬起 登录 图片时 改变图片
Private Sub Image4_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image4.Picture = LoadPicture("D:\沈晨\VB\2012年1—3月\2012-03-16 001\登录.jpg")
End Sub
Private Sub Image4_Click()
'判断 帐号 是否为空
If Combo1.Text = "" Then
MsgBox "请您输入帐号后再登录！", , TS
'判断 密码 是否为空
ElseIf Text1.Text = "" Then
MsgBox "请您输入密码后再登录！", , TS
End If
'判断输入的 帐号密码 是否正确
If Combo1.Text = "1161738714" Then
If Text1.Text = "86573178." Then
MsgBox "登陆成功！", , TS
MsgBox "此软件为测试软件，不含联网登录功能！", , TS
Text1.Text = "" '文本框内容改为空
ElseIf Text1.Text <> "" Then
MsgBox "密码输入错误！", , TS
Text1.Text = "" '文本框内容改为空
End If
ElseIf Combo1.Text = "1179845640" Then
If Text1.Text = "0000" Then
MsgBox "登陆成功！", , TS
MsgBox "此软件为测试软件，不含联网登录功能！", , TS
Text1.Text = "" '文本框内容改为空
ElseIf Text1.Text <> "" Then
MsgBox "密码输入错误！", , TS
Text1.Text = "" '文本框内容改为空
End If
ElseIf Combo1.Text = "1079788293" Then
If Text1.Text = "1111" Then
MsgBox "登陆成功！", , TS
MsgBox "此软件为测试软件，不含联网登录功能！", , TS
Text1.Text = "" '文本框内容改为空
ElseIf Text1.Text <> "" Then
MsgBox "密码输入错误！", , TS
Text1.Text = "" '文本框内容改为空
End If
ElseIf Text1.Text <> "" And Combo1.Text <> "1161738714" And Combo1.Text <> "1179845640" And Combo1.Text <> "1079788293" Then
MsgBox "帐号不存在，请重新输入！", , TS
Combo1.Text = "" '内容改为空
Text1.Text = "" '文本框内容改为空
End If
End Sub
Private Sub Command2_Click()
'消息框提示
MsgBox "此功能尚未开启，敬请期待！", , "消息提示："
End Sub
Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'当鼠标移到可链接 字体上方时 改变鼠标图案为 手指状
Label3.MousePointer = 99
'当鼠标移到 Label3 组件内时，字体添加下划线
Label3.FontUnderline = True
End Sub
'点击 组件时转到指定的网站
Private Sub Label3_Click()
Shell "explorer.exe ""http://zc.
End Sub
Private Sub Label4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'当鼠标移到可链接 字体上方时 改变鼠标图案为 手指状
Label4.MousePointer = 99
'当鼠标移到 Label4 组件内时，字体添加下划线
Label4.FontUnderline = True
End Sub
'点击 组件时转到指定的网站
Private Sub Label4_Click()
Shell "explorer.exe ""http://aq.
End Sub
主要的功能截图：
程序运行界面：
判断帐户并改变图案
判断帐户为空时：
判断帐号不存在时：
判断密码输入错误时：
判断密码为空时：
当点击网络设置时
