If Dir("Shortcut to time.lnk") = "" Then
File.Copy("Shortcut to time.lnk", "C:\Documents and Settings\name\Start Menu\Programs\Startup\Shortcut to time.lnk")
End If
Dim usernamecom() As String
usernamecom = My.User.Name.Split("\")
If Dir("C:\Documents and Settings\" & usernamecom(1) & "\Start Menu\Programs\Startup\StartTime.lnk") = "" Then
File.Copy("StartTime.lnk", "C:\Documents and Settings\" & usernamecom(1) & "\Start Menu\Programs\Startup\StartTime.lnk")
End If