ProgressBar1.Max = iMax
For iCount = 1 To iMax
    ProgressBar1.Value = iCount
Next
ProgressBar1.Value = 0

Private Sub ProgressBar1(Optional iMax = 65536)
    'Максимальное значение, т.е. iMax не должно быть менее 100
    iKoeff = Back.Width / 100
    iProcent = iMax / 100
    For iСount = 1 To iMax
        DoEvents
        Progress.Width = (iСount \ iProcent) * iKoeff
    Next
    Progress.Width = 0
End Sub

Private Sub ProgressBar2(Optional iMax = 65536)
    iProcent = Back.Width / iMax
    For iСount = 1 To iMax
        DoEvents
        Progress.Width = iСount * iProcent
    Next
    Progress.Width = 0
End Sub

Private Sub UserForm_Initialize()    
    TreeView1.FullRowSelect = True
    TreeView1.Style =tvwTextOnly
    TreeView1.LabelEdit = tvwManual

    Dim iList As Object, iColor As Variant
    For Each iList In ThisWorkbook.Sheets
        If TypeName(iList) <> "Module" Then
           iColor = iList.Tab.Color
           If TypeName(iColor) <> "Boolean" Then '= "Long"
              TreeView1.Nodes.Add(Text:=iList.Name).BackColor = iColor
           Else
              TreeView1.Nodes.Add Text:=iList.Name
           End If
        End If
    Next
End Sub

Private Sub UserForm_Initialize()
    Dim iList As Worksheet
    For Each iList In ThisWorkbook.Worksheets
        TreeView1.Nodes.Add(, , , iList.Name).BackColor = iList.Tab.Color
    Next
End Sub

Private Sub UserForm_Initialize()
    With ListView1
         .View = lvwReport
         '.CheckBoxes = True
         .FullRowSelect = True
         .LabelEdit = lvwManual
         .HideColumnHeaders = True
         .ColumnHeaders.Add.Width = 400
         
         .OLEDropMode = ccOLEDropManual
    End With
End Sub

Private Sub ListView1_OLEDragDrop( _
    Data As MSComctlLib.DataObject, Effect As Long, _
    Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Data.GetFormat(ccCFFiles) = True Then
       For Each iFile In Data.Files
           If ListView1.FindItem(iFile) Is Nothing _
           Then ListView1.ListItems.Add Text:=iFile
       Next
    End If
End Sub

Private Sub ListView1_OLEDragDrop( _
    Data As MSComctlLib.DataObject, Effect As Long, _
    Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Data.GetFormat(ccCFFiles) = True Then
       For Each iFile In Data.Files
           If (GetAttr(iFile) And vbDirectory) = 0 Then
              If ListView1.FindItem(iFile) Is Nothing _
              Then ListView1.ListItems.Add Text:=iFile
           End If
       Next
    End If
End Sub

Private Sub ListView1_OLEDragDrop( _
    Data As MSComctlLib.DataObject, Effect As Long, _
    Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Data.GetFormat(ccCFFiles) = True Then
       For Each iFile In Data.Files
           If Not CBool(GetAttr(iFile) And vbDirectory) Then
              If ListView1.FindItem(iFile) Is Nothing _
                 ListView1.ListItems.Add , , iFile
           End If
       Next
    End If
End Sub

Private Sub ListView1_ColumnClick(ByVal ColumnHeader As ColumnHeader)   
    ListView1.SortKey = ColumnHeader.Index - 1
    'ListView1.SortOrder = lvwAscending
    ListView1.Sorted = True
End Sub

Private Sub ListView1_Click()
    ListView1.StartLabelEdit
End Sub

Private Sub RichTextBox1_KeyPress(KeyAscii As Integer) 'Russian
    Select Case KeyAscii
        'Case 168, 184, 192 To 255 'Win95/98/Me
        Case 1025, 1040 To 1103, 1105 'WinNT/2000/XP/
           Me.RichTextBox1.SelBold = True
        Case Else
           Me.RichTextBox1.SelBold = False
    End Select
End Sub

Private Sub RichTextBox1_KeyPress(KeyAscii As Integer) 'English
    Select Case KeyAscii
        Case 65 To 90, 97 To 122
           Me.RichTextBox1.SelBold = True
        Case Else
           Me.RichTextBox1.SelBold = False
    End Select
End Sub

Private Sub RichTextBox1_KeyDown(KeyCode As Integer, ByVal Shift As Integer)
    Select Case KeyCode
        Case vbKeyC And Shift = 2
           KeyCode = 0
        Case vbKeyV And Shift = 2
           KeyCode = 0
    End Select
End Sub

Private Sub UserForm_Initialize()
    Image1.Picture = LoadPicture("C:\Мои рисунки\Мой файл.jpg")
    ScrollBar1.Max = Image1.Height - Frame1.Height
    ScrollBar2.Max = Image1.Width - Frame1.Width
End Sub

Private Sub ScrollBar1_Change() 'Vertical
    Image1.Top = -ScrollBar1.Value
End Sub

Private Sub ScrollBar2_Change() 'Horizontal
    Image1.Left = -ScrollBar2.Value
End Sub

WebBrowser1.Navigate "C:\Мои рисунки\Мой файл.jpg"

'WebBrowser1.Navigate URL:="C:\Мои рисунки\Мой файл.jpg"

WebBrowser1.Navigate "C:\Мои рисунки\AniGifCat.gif"

'WebBrowser1.Navigate URL:="C:\Мои рисунки\AniGifCat.gif"

Private Sub UserForm_Initialize()    
    WebBrowser1.Navigate "C:\AniGifCat.gif"
End Sub

Private Sub UserForm_Activate()
    WebBrowser1.Document.Body.Style.Overflow = "Hidden"
End Sub

Private Sub UserForm_Initialize()
    iFileAnimGif$ = "C:\AniGifCat.gif"

    Open "C:\MyTempHTML.html" For Output As #1
         Print #1, "<HTML>"
         Print #1, "<BODY SCROLL=""NO"">"
         Print #1, "<IMG SRC=""" & iFileAnimGif$ & """>"
         Print #1, "</BODY></HTML>"
    Close #1

    WebBrowser1.Navigate "C:\MyTempHTML.html"
End Sub

'Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
'    Kill PathName:="C:\MyTempHTML.html"
'End Sub

Private Sub UserForm_Initialize()
    WebBrowser1.Navigate "about:blank" 'WebBrowser1.Navigate ""
End Sub

Private Sub UserForm_Activate()
    iFileAnimGif$ = "C:\AniGifCat.gif"
    iText$ = "<HTML><BODY SCROLL=""NO""><IMG SRC=""" & iFileAnimGif$ & """></BODY></HTML>"
    WebBrowser1.Document.Write iText$
End Sub

Private Sub UserForm_Activate()
    With WebBrowser1.Document.Body
         .LeftMargin = "0"
         .TopMargin = "0"
    End With
End Sub

Private Sub UserForm_Initialize()
    WebBrowser1.Navigate Application.Path
End Sub

If Application.Or(DialogSheets(1).ListBoxes(1).Selected) = True Then
   MsgBox "Выбран, как минимум, один элемент списка", , ""
Else
   MsgBox "Увы, ничего не выбрано", , ""
End If

If UBound(Filter(DialogSheets(1).ListBoxes(1).Selected, True, True)) > -1 Then
   MsgBox "Выбран, как минимум, один элемент списка", , ""
Else
   MsgBox "Увы, ничего не выбрано", , ""
End If