请高手帮助改一下VB代码
这段代码在VB6中运行时，老是有错误提示
请帮忙给改一下，只要能正常运行就可以！谢谢！
VB code:
Private Type Info
Name As String
Num1 As String
Num2 As String
End Type
Dim a() As Info
Dim FileName As String
FileName = "\1.ini" '修改ini文件名
Private Sub Combo1_Click()
Text1(0).Text = a(Combo1.ListIndex).Name
Text1(1).Text = a(Combo1.ListIndex).Num1
Text1(2).Text = a(Combo1.ListIndex).Num2
End Sub
Private Sub Command1_Click(Index As Integer)
If Index = 0 Then
Open App.Path & FileName For Append As #1
Print #1, ""
Print #1, Trim(Text1(0).Text) & "|" & Trim(Text1(1).Text) & "|" & Trim(Text1(2).Text)
Close #1
a(UBound(a)).Name = Text1(0).Text
a(UBound(a)).Num1 = Text1(1).Text
a(UBound(a)).Num2 = Text1(2).Text
ReDim Preserve a(UBound(a) + 1)
MsgBox "添加成功"
Call RefreshIni
ElseIf Index = 1 Then
If Combo1.ListIndex >= 0 Then
a(Combo1.ListIndex).Name = Text1(0).Text
a(Combo1.ListIndex).Num1 = Text1(1).Text
a(Combo1.ListIndex).Num2 = Text1(2).Text
Open App.Path & FileName For Output As #1
Print #1, "[config]"
For i = 0 To UBound(a) - 1
Print #1, Trim(a(i).Name) & "|" & Trim(a(i).Num1) & "
相关问答：
比如进程加载新的程序。
在其运行之前阻止。
然后允许后放行。
比如程序主文件路径是c:\test\test.exe，建立内容任意的文件c:\test\test.exe.manifest。
就是不知道程序文件路径。
设� ......
想在warcraft3里进行写屏操作【如对战平台中的胜负提示信息】，效果就像游戏平台中一样，我试过在一窗口中写入文字，然后一直让窗口强制最前，虽然能实现文字显示，但是文字会不断闪烁，而且有不确定BUG，通过论坛搜 ......
Private Sub Check1_Click()
If Check1.Value = 1 Then
DTP1.Enabled = True
Else
DTP1.Enabled = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
DTP2.Enabled = True
Else
......
在下是vb的新手，想写段程序，在vb中，使用wscript调用一些外部的命令，但是程序执行一直有错误，请各位高手帮忙解答下，谢谢。
代码如下：
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
