Private Sub UserForm_MouseUp(ByVal Button As Integer, ByVal ...

Private Sub UserForm_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Select Case Button
Case vbKeyLButton
TextBox1.Text = "You pressed the left mouse button."
Case vbKeyRButton
TextBox1.Text = "You pressed the right mouse button."
End Select
End Sub

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Select Case Button
Case vbKeyLButton
TextBox1.Text = X
Case vbKeyRButton
TextBox1.Text = Y
End Select
End Sub

Private Sub Image2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Select Case Button
Case vbKeyLButton
Image2.Move X, Y
End Select
End Sub
Private Sub Image3_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Select Case Button
Case vbKeyLButton
Image3.Left = X + (0.5 * Image3.Width)
Image3.Top = Y + (0.5 * Image3.Height)
End Select
End Sub
Private Sub UserForm_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Select Case Button
Case vbKeyLButton
Image1.Move X, Y
Case vbKeyRButton
Image2.Move X, Y
End Select
End Sub

Dim Day(1 To 7) As String
Private Sub TextBox1_Change()
If (TextBox1.Value > 0) And (TextBox1.Value < 8) Then
Label1.Caption = Day(TextBox1.Value)
Else
Label1.Caption = "Enter an integer from 1 to 7"
End If
End Sub
Private Sub UserForm_Initialize()
Day(1) = "Sunday"
Day(2) = "Monday"
Day(3) = "Tuesday"
Day(4) = "Wednesday"
Day(5) = "Thursday"
Day(6) = "Friday"
Day(7) = "Saturday"
End Sub

Example of a Bubble Sort
Dim Day(1 To 7) As String
Dim HOLD As String
Dim x As Single
Dim y As Single
Private Sub CommandButton1_Click()
For x = 1 To 7
For y = 1 To 7 - x
If Day(y + 1) < Day(y) Then
HOLD = Day(y)
Day(y) = Day(y + 1)
Day(y + 1) = HOLD
End If
Next y
Next x
End Sub
Private Sub TextBox1_Change()
If (TextBox1.Value > 0) And (TextBox1.Value < 8) Then
Label1.Caption = Day(TextBox1.Value)
Else
Label1.Caption = "Enter an integer from 1 to 7"
End If
End Sub
Private Sub UserForm_Initialize()
Day(1) = "Sunday"
Day(2) = "Monday"
Day(3) = "Tuesday"
Day(4) = "Wednesday"
Day(5) = "Thursday"
Day(6) = "Friday"
Day(7) = "Saturday"
End Sub

Event
AfterUpdate
BeforeDragOver
BeforeDropOrPaste
BeforeUpdate
Change
Description
Occurs after data in a control is changed through the user interface.
Occurs when a drag-and-drop operation is in progress.
Occurs when the user is about to drop or paste data onto an object.
Occurs before data in a control is changed.
Occurs when the Value property changes.
DblClick Occurs when the user points to an object and then clicks a mouse button
twice.
Enter, Exit
Error
KeyDown, KeyUp
KeyPress
MouseDown, MouseUp
MouseMove
Enter occurs before a control actually receives the focus from a control on
the same HTML layout.Exit occurs immediately before a control loses the
focus to another control on the same HTML layout.
Occurs when a control detects an error and cannot return the error
information to a calling program.
Occur in sequence when a user presses and releases a key.KeyDown
occurs when the user presses a key.KeyUp occurs when the user
releases a key.
Occurs when the user presses an ANSI key.
Occur when the user clicks a mouse button.MouseDown occurs when the
user presses the mouse button; MouseUp occurs when the user releases
the mouse button.
Occurs when the user moves the mouse.