سؤال في Mirosoft Visual Basic

1 -

ضع هذا في موديول

' ***************************************************
' * Instructions: Paste the lines below into a module, or into your form, and
' *               call using the example below.
' * Example:
' *          MsgBox "CDROM Drive: " & GetCDROMDriveLetter()
' ***************************************************
Private Declare Function GetDriveType Lib "kernel32" Alias _
    "GetDriveTypeA" (ByVal nDrive As String) As Long
Private Const DRIVE_CDROM = 5

Public Function GetCDROMDriveLetter() As String
  Dim DriveChar As Byte
  Dim tmpDrive As String

  GetCDROMDriveLetter = "Unknown"

  On Error GoTo ErrorHandler
  
  For DriveChar = 0 To 25
    tmpDrive = Chr(65 + DriveChar) & ":\"
    If (GetDriveType(tmpDrive) = DRIVE_CDROM) Then
      GetCDROMDriveLetter = tmpDrive
      Exit For
    End If
  Next DriveChar
  
ErrorHandler:
  Exit Function
    
End Function

ثم هذا الكود

Private Sub Form_Load()
MsgBox "CDROM Drive: " & GetCDROMDriveLetter()
End Sub

(2)-

كلمة بوميض

Private Sub Timer2_Timer()
    Dim no As Integer
    Dim phrase As String
    Static counter As Integer

    phrase = "loading ..."
    no = Len(phrase)

first:
    counter = counter + 1
    If counter > 11 Then counter = 8
    If counter < 8 Then GoTo first
    lblloading.Caption = Left(phrase, counter)
End Sub

انا عندي التايمر 700 شوف انت السرعة اللي تناسبك

و بالنسب لكود ال progress bar خلي القيمة القصوي بتاعته مساوية لعدد الملفات و كل ما تنسخ ملف يزود القيمة

مثلا

prgbar.Max = 10
prgbar.Min = 0
FileCopy "h:\ahmed\shop.exe", "c:\shop.exe"
prgbar.Value = prgbar.Value + 1
FileCopy "h:\ahmed\me.exe", "c:\me.exe"
prgbar.Value = prgbar.Value + 1
' و هكذا

(3)

لتشغيل برنامج

Private Sub Command1_Click()
Shell "C:\Program Files\Pharco\pharco.exe", vbNormalFocus
End Sub

شكرا جزيلا اخ romantic_boy

لكن بقي لدي استفسار

عند استعاء ملف من سواقة

shell "?:\hbc\setup.exe

ماذا اضع بدل متغير السواقة و شكرا