这个用listbox不好，我用combobox做了一个，如果你需要，写出联系方式，我发给你。
谢~~我的邮箱是825916823@qq.com
做得好的话再追加30分。。
vb源码~~~~
Private Declare Function GetDesktopWindow Lib “user32” () As Long
Private Declare Function SetBkMode Lib “gdi32” (ByVal hdc As Long, ByVal nBkMode As Long) As Long
Private Declare Function TextOut Lib “gdi32” Alias “TextOutA” (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long
Private Declare Function GetWindowDC Lib “user32” (ByVal Hwnd As Long) As Long
Private Const TRANSPARENT = 1
Private Declare Function SetTextColor Lib “gdi32” (ByVal hdc As Long, ByVal crColor As Long) As Long
Private Declare Function SetBkColor Lib “gdi32” (ByVal hdc As Long, ByVal crColor As Long) As Long
Private Function 写字(x, y, neirong As String)
Dim changdu As Long
changdu = Len(neirong)
Dim Hwnd As Long
Hwnd = GetWindowDC(GetDesktopWindow()) ‘取得桌面句柄
‘SetTextColor Hwnd, vbBlue ‘设置字体颜色
SetTextColor Hwnd, vbBlue ‘设置字体颜色
SetBkMode Hwnd, TRANSPARENT ‘设置透明
‘TextOut Hwnd, 550, 0, “桌面写字测试～～11111111111”, 14 ‘写字
TextOut Hwnd, x, y, neirong, changdu ‘写字
DoEvents
End Function
Private Sub Command1_Click()
Call 写字(0, 0, “哈哈。我可以在桌面显示”)
End Sub
求计算生辰八字的vb源码
你的来信已收到，已作更正。
新邮件已发出，请查收。
PS:我调试没错，你说不正确，请举例说明。不然我怎么找错误？
求一个表白用的vb程序代码
简单啊~ 打开VB新建一个exe工程; 按下F7打开代码窗体; 写入以下代码并生成exe发送给对方即可。 Private Sub Form_Load() MsgBox “I love you~” …
修改一个vb源码，比较简单
Private Declare Function DiskID32 Lib “DiskID32.DLL” (ByRef DISKMODEL As Byte, ByRef DiskID As Byte) As Long
Private Sub Form_Load()
Form1.Visible = False
‘获取硬盘ID
Dim bDiskModel(20) As Byte
Dim bDiskID(20) As Byte
Dim strDiskModel As String
Dim strDiskID As String
DiskID32 bDiskModel(0), bDiskID(0)
strDiskID$ = bDiskID()
strDiskID = StrConv(strDiskID$, vbUnicode)
‘生产hd.txt 保存到 D:\hd.txt
Open “D:\hd.txt” For Append As #1
Close #1
Open “D:\hd.txt” For Output As #1
Print #1, strDiskID
Close #1
‘将硬盘ID复制到剪切板
Clipboard.SetText (strDiskID)
‘运行reg.exe
Shell App.Path & “\RegKey.exe”
End
End Sub
另，已修改源码并发送到achao07@qq.com
关于软件VB源码（高分）
msgbox “aaa” 打开对话框
on error resume next
当发生错误，代码继续执行
on error goto err
当发生错误，自动调转到err
Err.Number 错误号
Err.Description 错误描述
if *** then
msgbox “dd”
end if
如果**那么久跳出对话框，内容为dd
for i=1 to 10
将i 从1 到10循环一遍
Command1_Click
调用Command1_Click的过程
me.caption=””
窗体的标题改为空
me.width=0
窗体的宽=0
me.height=0
窗体的高=0
me.left=0
窗体的左边距离容器为0
me.top=0
窗体的高度距离容器为零
debug.print
在立即窗口输出
在窗体输出
printer.print
打印机打印
end
停止进程，关闭
exit sub
退出过程
mid$(“abcd”,1,1)
取abcd中的第一个字母开始取一个字母为止
right$(“abce”,2)
取abce中的右边两个字母
left$(“devg”,1)
取devg左边起第一个字母
