64bit Spin

Spin is super-easy to use. To run Spin all you need are the following 3 Calls with whatever Task you are doing placed after the Call to Spin.Go:

Spin.Init

Spin.Go

' your task goes here with DoEvents added in your Code 
DummyTask 2500
   
Spin.Kill

Obviously Spin has a lot of configurable Optional Parameters - here are all of the allowed Optional Named Arguments for each Call (you can play around with these to tweak the Preloader that Spin displays):

Spin.Init Width:=132, Height:=78, Message:="Please wait..."

Spin.Go FadeinDuration:=1000, Colour:=Pumice, Lines:=7, LineLength:=1, LineWidth:=19, LineColour:=White, InnerCircleRadius:=21, CornerRoundness:=1, Speed:=1.4, Trail:=30

Spin.Kill FadeoutDuration:=600

Due to the fact that Spin is essentially a UserForm, you can take advantage of this through the Spin.Caption member to update the Dialog Message whilst Spin is running. For example you can do the following to update the user of whereabouts you are in some process as you loop through the Worksheet Rows like this:

Private Sub CaptionDemo()
   Spin.Init Message:=""
   Spin.Go
   
   Dim i As Long
   Dim SelectedCell As Range
   Dim SelectedSheet As Worksheet
   Set SelectedSheet = ActiveWorkbook.Sheets.Add(After:=Sheet1)
   For Each SelectedCell In SelectedSheet.Range("A1:A500").Cells
      i = i + 1
      SelectedCell.Activate
      DoEvents
      SelectedCell.Value = i
      DoEvents
      SelectedCell.Offset(0, 1).Value = Int((2 ^ 16 - 2 ^ 1) * Rnd() + 2 ^ 1)
      Spin.Caption = "Working Row: " & i
   Next SelectedCell
   Application.DisplayAlerts = False
   SelectedSheet.Delete
   Application.DisplayAlerts = True
    
   Spin.Kill
End Sub

Spin Demo. Spin can now be used in Access as well

There are currently no frequently asked questions about Spin

Video of Spin

Here I run the 3 Demos that ship with the Spin Software