Name: Growing fading circle green screen @JFLHV
Uploaded: 2022-12-31T08:17:00
Duration: 8 min 17 s
Description: Circle that increases in size and transparency. Can be used to bring attention to an item

Growing fading circle green screen

JFLHV 2022-12-31 | Circle that increases in size and transparency. Can be used to bring attention to an item

Duplicate timeline items shortcut in iMovie for Mac

JFLHV 2022-12-26 | How to quickly duplicate clips, audio or transitions in the timeline in iMovie for Mac

C# - Building a simple automation app

JFLHV 2022-12-20 | Demo of a simple hobby C# app to automate other Windows apps. The app reads automation steps from a flat file and simulates those actions. It waits for active windows, simulates pressing or typing on keyboard and mouse input like left click or left drag.

0:00 Demo
0:50 File Structure
2:19 Automation Code
3:45 Program Structure

C# - Simulate keystrokes with SendInput (codeproject implementation)

JFLHV 2022-10-27 | Simulate keyboard keystrokes in Windows apps using C# SendInput function. A download from codeproject.com is used to build functions that type text, press navigation keys and extended keys.

0:00 InputSender
0:13 Type characters
1:48 Navigation keys
2:35 Extended keys

InputSender Download:
codeproject.com/Articles/5264831/How-to-Send-Inputs-using-Csharp

private void PressCombo(ushort code1, ushort code2)
{
InputSender.SendKeyboardInput(new InputSender.KeyboardInput[]
{
new InputSender.KeyboardInput
{
wScan = code1,
dwFlags = (uint)(InputSender.KeyEventF.KeyDown | InputSender.KeyEventF.Scancode)
},
new InputSender.KeyboardInput
{
wScan = code2,
dwFlags = (uint)(InputSender.KeyEventF.KeyDown | InputSender.KeyEventF.Scancode)
}
});
}

C# - Simulate dragging mouse using SendInput function

JFLHV 2022-10-16 | How I simulate dragging the mouse in other Windows apps using C# SendInput function. A download from codeproject.com is used to build functions to drag the left and right mouse.

InputSender Download:
codeproject.com/Articles/5264831/How-to-Send-Inputs-using-Csharp

private void LeftDrag(Point start, Point end)
{
InputSender.SetCursorPosition(start.X, start.Y);

InputSender.SendMouseInput(new InputSender.MouseInput[]
{
new InputSender.MouseInput
{
dwFlags = (uint)InputSender.MouseEventF.LeftDown

}
});

Thread.Sleep(100);

InputSender.SetCursorPosition(end.X, end.Y);

InputSender.SendMouseInput(new InputSender.MouseInput[]
{
new InputSender.MouseInput
{
dwFlags = (uint)InputSender.MouseEventF.LeftUp
}
});
}

C# - Simulate mouse clicks with SendInput (codeproject implementation)

JFLHV 2022-09-30 | How I simulate left and right mouse clicks in Windows apps with C# SendInput function. A download from codeproject.com is used to build functions for LeftClick and RightClick.

InputSender Download:
codeproject.com/Articles/5264831/How-to-Send-Inputs-using-Csharp

private void LeftClick(int x, int y)
{
InputSender.SetCursorPosition(x, y);

InputSender.SendMouseInput(new InputSender.MouseInput[]
{
new InputSender.MouseInput
{
dwFlags = (uint)InputSender.MouseEventF.LeftDown
}
});

Thread.Sleep(100);

InputSender.SendMouseInput(new InputSender.MouseInput[]
{
new InputSender.MouseInput
{
dwFlags = (uint)InputSender.MouseEventF.LeftUp
}
});
}

Copy single column of text in Windows

JFLHV 2022-08-15 | How to copy a single column or block of text in Windows. This works in apps like Adobe Reader, Word, Notepad++ and Visual Studio

VB.NET - Hide blinking cursor in read-only textbox

JFLHV 2022-06-12 | How I hide the blinking cursor in a read-only textbox and richtextbox in VB.NET winforms using the win32 function is below

Public Declare Auto Function HideCaret Lib "user32" (ByVal hWnd As IntPtr) As Boolean

Lock photos on Samsung Galaxy A12

JFLHV 2022-05-30 | Steps to lock photos, videos and documents on the Samsung Galaxy A12 Android with the free Google Files Explorer app.

Scrolling numbers count 1 to 1000 green screen

JFLHV 2022-05-15 | Scrolling number count from 1 to 1000 green screen similar to a mechanical odometer.

VB.NET - Automate desktop apps with Sendkeys and Win32 functions

JFLHV 2022-02-09 | How I automate Windows desktop apps with VB.NET using Sendkeys and Win32 functions. It covers waiting until a specific window is active, explicit wait, simulating keyboard input with Sendkeys and simulating left click and right click.

Win32
-------------------
Private Declare Function GetForegroundWindow Lib "user32" () As IntPtr

Private Declare Auto Function GetWindowText Lib "user32" (ByVal hWnd As System.IntPtr, ByVal lpString As System.Text.StringBuilder,
ByVal cch As Integer) As Integer

Public Declare Sub mouse_event Lib "user32" (ByVal dwFlags As UInteger, ByVal dx As UInteger, ByVal dy As UInteger, ByVal dwData As UInteger,
ByVal dwExtraInfo As Integer)

Const MOUSEEVENTF_LEFTDOWN As UInteger = &H2
Const MOUSEEVENTF_LEFTUP As UInteger = &H4
Const MOUSEEVENTF_RIGHTDOWN As UInteger = &H8
Const MOUSEEVENTF_RIGHTUP As UInteger = &H10

Regex function
--------------------------
Regex.Replace(str, "[+^%~(){}]", "{$0}")

Sendkeys Codes
---------------------------
docs.microsoft.com/en-us/dotnet/api/system.windows.forms.sendkeys

0:00 Summary of automation tasks
0:20 Wait for active window
1:22 Sendkeys functions
2:45 Mouseclicks
3:32 Demo UI to run scripts

Stop unwanted game downloads on Samsung Galaxy A12

JFLHV 2021-12-18 | Steps I took to stop game apps being installed on the Samsung Galaxy A12 android phone without my permission.

These games were being installed by the phone company through the Mobile Services Manager system app which had to be disabled

Circular download progress green screen

JFLHV 2021-12-04 | Download progress green screen animation. Going from empty to a filled circle then reversing. Commonly seen when downloading a large file. Can also indicate going from 0 to 100.

Fix disabled 1080p export in iMovie for Mac

JFLHV 2021-10-10 | Steps I used to enable 1080p export option in iMovie for Mac when the first clip added was not 1920x1080 resolution

VB.NET - Monthly calendar interface

JFLHV 2021-09-06 | Steps I took to create a resizable monthly calendar that displays events such as birthdays. I show how i create the interface and create a class to provide info to populate, format and navigate the calendar.

Windows 10
.NET Framework 4.6.1
Windows Forms

'Here is code that sets the days for a 6x7 calendar grid. It does not account for exceptions if trying to subtract from the minimum year and month

Private Sub SetDays()

Dim firstDayofMonth As DateTime
Dim column As Integer
Dim firstDayofGrid As DateTime
Dim gridDate As DateTime

firstDayofMonth = New Date(_Year, _Month, 1)
column = CInt(firstDayofMonth.DayOfWeek)
firstDayofGrid = firstDayofMonth.AddDays(column * -1)

gridDate = firstDayofGrid

For rowIndex = 0 To 5
For colIndex = 0 To 6
_Days(rowIndex, colIndex) = gridDate
gridDate = gridDate.AddDays(1)
Next
Next

Return

End Sub

'Here is the code I used to populate all the days of the month

Private Sub PopulateCalendar()

Dim lbl As Control
Dim lblName As String

lbl = MonthYearContainer.Controls.Find("LblMonthYear", False).First
lbl.Text = String.Format("{0} {1}", MonthName(_CalendarInfo.Month), _CalendarInfo.Year)

For rowIndex = 0 To 5
For colIndex = 0 To 6
lblName = String.Format("LblDayOfMonth{0}{1}", rowIndex, colIndex)
lbl = Me.Controls.Find(lblName, True).First
lbl.Text = _CalendarInfo.DayInMonth(rowIndex, colIndex)

If _CalendarInfo.IsActiveMonth(rowIndex, colIndex) Then
lbl.ForeColor = Color.Black
Else
lbl.ForeColor = Color.Gray
End If

If _CalendarInfo.IsToday(rowIndex, colIndex) Then
lbl.ForeColor = Color.Red
End If
Next
Next

End Sub

VB.NET - Multiple series chart populated manually

JFLHV 2021-05-14 | The steps in VB.NET to populate a multiple series chart by manually adding xy points to the chart.

Dim months As New List(Of String)
Dim lowTemps As New List(Of Integer)
Dim highTemps As New List(Of Integer)

months.AddRange(New String() {"Jan", "Feb", "Mar", "Apr"})
lowTemps.AddRange(New Integer() {37, 41, 49, 56})
highTemps.AddRange(New Integer() {56, 61, 69, 77})

Chart1.Titles.Add("Monthly Average Temperature")
Chart1.Series.Clear()
Chart1.Series.Add("Low")

For i = 0 To months.Count - 1
Chart1.Series("Low").Points.AddXY(months(i), lowTemps(i))
Next

Chart1.Series.Add("High")

For i = 0 To months.Count - 1
Chart1.Series("High").Points.AddXY(months(i), highTemps(i))
Next

VB.NET - Multiple series chart populated from datasource

JFLHV 2021-05-11 | How i populate a multiple series chart using a datasource. I'm using a list of a created class as the datasource. I assign each chart series XValuemember and YValuemembers to properties of the class.

----------------------------------------------------------

Dim temps As New List(Of AverageTemperature)

temps.Add(New AverageTemperature("Jan", 22, 37))
temps.Add(New AverageTemperature("Feb", 24, 39))
temps.Add(New AverageTemperature("Mar", 31, 46))
temps.Add(New AverageTemperature("Apr", 41, 57))

Chart1.DataSource = temps
Chart1.Titles.Add("Monthly Average Temperature")
Chart1.Series(0).Name = "Low"
Chart1.Series(0).XValueMember = "Month"
Chart1.Series(0).YValueMembers = "LowTemp"
Chart1.Series.Add("High")
Chart1.Series(1).XValueMember = "Month"
Chart1.Series(1).YValueMembers = "HighTemp"

-------------------------------------------------

Public Class AverageTemperature

Public _month As String
Public _lowTemp As Integer
Public _highTemp As Integer

Public Sub New(m As String, low As Integer, high As Integer)
_month = m
_lowTemp = low
_highTemp = high
End Sub

Public Property Month As String
Get
Return _month
End Get
Set(value As String)
_month = value
End Set
End Property

Public Property LowTemp As Integer
Get
Return _lowTemp
End Get
Set(value As Integer)
_lowTemp = value
End Set
End Property

Public Property HighTemp As Integer
Get
Return _highTemp
End Get
Set(value As Integer)
_highTemp = value
End Set
End Property

End Class

VB.NET - Update Access database using tableadapter dbdirect methods

JFLHV 2021-05-07 | Simplified demo showing how I connect to a Microsoft Access database, read, insert, update and delete records in VB.NET. I use a tableadapter and the default dbdirect methods.

Also helps avoid these issues
- Verifying data storage components are installed
- Getting tableadapter to display in the toolbox
- Build error when project name is the same as a file name.

rsync backup and keep old files in macOS

JFLHV 2021-04-02 | Use Rsync in Terminal on macOS 11 to backup local files to an external drive

Helpful tips shown:

1. Keep old versions of modified and deleted files.

2. Format a path with spaces

3. Use the modify-window option to stop unchanged files from being copied every run

Here is the command:

rsync -abv --modify-window=2 --backup-dir="/Users/User1/Desktop/History/ $(date +\%Y\%m\%d_\%H\%M\%S)" --delete /Users/user1/Desktop/Src\ Files/ /Volumes/KINGSTON/Dest/

Make sure the quotes around the backup directory are vertical. Slanted quotations failed to run for me

Highlighter effect in iMovie for Mac

JFLHV 2021-01-31 | Showing a way to create the highlighter effect on a newspaper image in iMovie 10.2.2 using transparent images created in Keynote

Applying the effect in iMovie: 0:04
Creating the images in Keynote: 2:46
Filter to bring out detail of text: 3:37

VB.NET - Remove items from a list with RemoveAll

JFLHV 2020-12-26 | 3 Examples of List.RemoveAll to filter a list of words

RemoveAll inline simple
fIlteredWords.RemoveAll (Function(str) str.Contains(filter)=False)

RemoveAll AddressOf existing function
fIlteredWords.RemoveAll (AddressOf ContainsVowel)

RemoveAll inline existing function 2 parameters
filteredWords.RemoveAll (Function(str) ContainsAllChars(str, filter)=False)

Public Function ContainsVowel(ByVal str As String)
Dim vowels As Char() = {"a", "e", "i", "o", "u"}
For Each c As Char In str
If vowels.Contains(c) Then
Return True
End If
Next
Return False
End Function

Public Function ContainsAllChars(ByVal str As String, ByVal chars As String)
For Each c As Char In chars
If str.Contains(c) = False Then
Return False
End If
Next
Return True
End Function

Scan QR codes on Pixel 4

JFLHV 2020-12-06 | How to scan QR codes on Google's Pixel 4 through the camera and Google Lens feature. Android version 11.

Show music controls on Pixel 4

JFLHV 2020-10-07 | How to display music controls in the notification shade and on the lock screen for the Google Pixel 4.

Android version 10.

Enabling music controls on the lock screen does require additional swipe up to unlock phone after face unlock.

Works for music apps I use:
+ Google Play Music
+ Pandora
+ YouTube Music (Device Files)

Download videos in Any Video Converter | Windows 10

JFLHV 2020-09-23 | Steps to download video from URL in Windows 10 using the Any Video Converter desktop app (free version).

www.any-video-converter.com

60 minute timer green screen top left corner

JFLHV 2020-07-27 | 60 minute green screen timer white font. 1920x1080
5 second pause at 0:00

Motion tracking tips in iMovie macOS

JFLHV 2020-05-09 | Manual motion tracking in iMovie for macOS

#tips

1. Hold the command key when dragging items to prevent snapping to yellow guidelines

2. Hold the shift key when dragging items to only move horizontally or vertically

3. Left and right arrow keys move the video back or forward one frame

4. Keyframe at full screen for better accuracy dragging items

10 basic shapes animated green screen

JFLHV 2020-04-12 | Green screen for basic shapes with simple animation. Free to use without copyright.

Circle
Ellipse
Hexagon
Octagon
Pentagon
Rectangle
Rhombus
Square
Trapezoid
Triangle

How align works in Microsoft Publisher | Windows 10

JFLHV 2020-02-08 | Showing how align works in Microsoft Publisher and setting up a 3 column page with images centered in each column. Align Left and Distribute Horizontally are used to show how items can be aligned based on the Relative to Margin Guides option being selected.

- Office 2016 Professional
- Windows 10

VB.NET - Calculate age from birthdate

JFLHV 2020-01-17 | VB.Net code to determine a person's age from birthdate using the date diff function.

Visual Studio Community 2017
.NET Framework 4.6.1
Windows 10

Code below.
'Angled brackets not allowed so replace "GREATER_THAN'

'Calculate age from birthdate
Private Function Age(ByVal birthdate As DateTime) As String

Dim ageDays As Integer
Dim ageMonths As Integer
Dim ageYears As Integer

ageDays = DateDiff("d", birthdate, Now)
ageMonths = DateDiff("m", birthdate, Now)

'Reduce month by 1 if birthdate day not yet reached
If birthdate.Day GREATER_THAN Now.Day Then
ageMonths = ageMonths - 1
End If

'Calculate years (Do not round value up)
ageYears = Math.Truncate(ageMonths / 12) 'can use \ operater as well

If ageYears GREATER_THAN 0 Then
Return ageYears.ToString + Plural(ageYears, " Year")
ElseIf ageMonths GREATER_THAN 0 Then
Return ageMonths.ToString + Plural(ageMonths, " Month")
Else
Return ageDays.ToString + Plural(ageDays, " Day")
End If

End Function

'Return plural form of text if value not = 1
Private Function Plural(value As Integer, text As String)
If Math.Abs(value) = 1 Then
Return text
Else
Return text + "s"
End If
End Function

Simple Top 25 subtitle countdown green screen

JFLHV 2019-10-17 | Top 25 subtitle countdown in lower left corner against green screen background. Simple animation to reveal each number.

Custom split screen in iMovie macOS

JFLHV 2019-08-30 | Placing 3 videos in one with a border in iMovie on macOS

iMovie version 10.1.12

VB.NET - Creating multiple controls at runtime inside flow layout panel

JFLHV 2019-08-06 | Steps to add multiple panels at runtime that contain other controls such as labels and buttons in VB.NET using a flow layout panel

Visual Studio Community 2017
.NET Framework 4.6.1
Windows 10

Partial Code:
---------------------
'Indicates current contact panel to add controls to
Private _CurrentContactPanelName As String = Nothing

'Used to give unique control names such as label1, label2 etc
Private _ContactPanelsAddedCount As Integer = 0

'Add contact panel to flow layout panel
Public Sub CreateContactPanel()

Dim contactPanel As Panel
contactPanel = New Panel()

'Set panel properties
With contactPanel
.BackColor = Color.White
.Size = New Size(420, 50)
.Name = "pnlContact" + (_ContactPanelsAddedCount + 1).ToString
End With

'Add panel to flow layout panel
flpMain.Controls.Add(contactPanel)

'Update panel variables
_CurrentContactPanelName = contactPanel.Name
_ContactPanelsAddedCount += 1

End Sub

'Add new delete button to contact panel
Private Sub CreateContactDeleteBtn(ByVal panelName As String)

Dim contactDeleteButton As Button
contactDeleteButton = New Button

'Set button properties
With contactDeleteButton
.AutoSize = False
.Size = New Size(90, 30)
.BackColor = Color.Silver
.ForeColor = Color.Black
.Location = New Point(300, 10)
.Name = "btnContactDelete" + (_ContactPanelsAddedCount).ToString
.Text = "Delete"
End With

'Add button to panel
For Each controlObject As Control In flpMain.Controls
If controlObject.Name = panelName Then
controlObject.Controls.Add(contactDeleteButton)
End If
Next

'Add handler for click events
AddHandler contactDeleteButton.Click, AddressOf DynamicButton_Click

End Sub

'Remove handlers and contact panel
Public Sub DynamicButton_Click(ByVal sender As Object, ByVal e As EventArgs)

Dim parentPanelName As String

parentPanelName = Nothing

'Remove handler from sender
For Each controlObj As Control In flpMain.Controls
For Each childControlObj As Control In controlObj.Controls
If childControlObj.Name = sender.name Then
RemoveHandler childControlObj.Click, AddressOf DynamicButton_Click
parentPanelName = childControlObj.Parent.Name
End If
Next
Next

'Remove contact panel
For Each controlObj As Control In flpMain.Controls
If controlObj.Name = parentPanelName Then
flpMain.Controls.Remove(controlObj)
controlObj.Dispose()
End If
Next

End Sub

Fancierstudio Boom Arm Setup with Two Side Grip

JFLHV 2019-07-18 | The older version of Fancierstudio lighting kits on Amazon came with no specific instructions to setup the boom arm. This is a quick video to show how i setup the boom arm with the two-sided grip provided.

0 to 100 circular progress green screen

JFLHV 2019-05-26 | 0 to 100 percent circular progress green screen.

VB.NET - Simulate left mouse click in another app

JFLHV 2019-05-05 | Simple tutorial to simulate left mouse click in another app in VB.NET. Left-clicks are simulated in Windows calculator to add numbers

Const MOUSEEVENTF_LEFTDOWN As UInteger = &H2
Const MOUSEEVENTF_LEFTUP As UInteger = &H4

Public Declare Sub mouse_event Lib "user32" (ByVal dwFlags As UInteger, ByVal dx As UInteger, ByVal dy As UInteger, ByVal dwData As UInteger, ByVal dwExtraInfo As Integer)

Public Sub LeftClick()
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
Thread.Sleep(100) 'Wait required
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
End Sub

Change wireless network on Canon MG3600 series printer in Windows 10

JFLHV 2019-04-18 | Steps i took to change wireless network on the Canon MG3600 (MG3620) series printer in Windows 10. I temporarily connected the printer to my computer via usb cable and used the IJ Network tool.

Tip 1: The default password (serial number) can be changed in the network tool. Other series may have a default password of canon

Tip 2: The serial number was 9 characters

Tip 3: The USB connected printer may show as a duplicate printer even after it's disconnected so restart or delete printer to avoid trying to print to the incorrect printer.

Generate text file of all items in a folder in Windows 10

JFLHV 2019-02-10 | Using the cmd prompt in Windows to create a text file of all items in a folder i.e: C:\Program Files

Read from specified path and save to current directory
dir /s /b “C:\Program Files” greaterthanarrow filename.txt

Save to specified path.
dir /s /b “C:\Program Files” greaterthanarrow “E:\My Info\filename.txt”

Read from current directory
dir /s greaterthanarrow filename.txt

Show summary and header info
dir /s “C:\Program Files” greaterthanarrow filename.txt

Show only files using the attribute option /a
dir /s /b /a:-d “C:\Program Files” greaterthanarrow filename.txt

Music equalizer green screen

JFLHV 2018-12-19 | Simple animated music equalizer green screen. 1920x1080

Print test page in Windows 10

JFLHV 2018-12-08 | Steps for using the built in printer test page in Windows 10

VB.NET - Determine if Caps Lock is turned on

JFLHV 2018-08-16 | Simple example to check if the Caps Lock key is on in vb.net.

Text typing bubble animation green screen

JFLHV 2018-06-26 | Text typing bubble animation indicating the other user is typing a message

Change duration of freeze frame in iMovie macOS

JFLHV 2018-05-10 | Steps to change duration of freeze frame or delete freeze frame in iMovie for mac

VB.NET - Detect when computer sleeps and wakes

JFLHV 2018-02-21 | Steps to detect when PC goes to sleep and wakes up in VB.NET.

.Net Framework 4.6.1
Windows Forms App
Visual Studio Community
Windows 10

----------------------

Imports Microsoft.Win32

Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

AddHandler SystemEvents.PowerModeChanged, AddressOf SystemEvents_PowerModeChanged

End Sub

Private Sub SystemEvents_PowerModeChanged(ByVal sender As Object, ByVal e As PowerModeChangedEventArgs)

Select Case e.Mode

Case PowerModes.Suspend
txtSuspend.Text = Now

Case PowerModes.Resume
txtResume.Text = Now

End Select

End Sub
End Class

Search bar typing effect in iMovie macOS

JFLHV 2018-01-08 | Using green screen overlay to simulate search bar typing on top of a video in iMovie

Export image for thumbnail in iMovie macOS

JFLHV 2017-12-02 | How to export video frame to an image in iMovie 10.1.8

VB.NET - Add installed fonts to a combobox

JFLHV 2017-10-22 | Steps to add installed fonts to a combobox in a VB.NET Windows forms application

Animate text color in iMovie macOS

JFLHV 2017-09-28 | Animate the color of text in iMovie using green screen overlay

iMovie - Creating a custom timer

JFLHV 2017-06-26 | Steps to create a custom timer in iMovie using a green screen layover

Google Drawings link to create simple graphics:

http://docs.google.com/drawings

5 minute green screen timer (lower right corner)

JFLHV 2017-06-20 | 5 minute green screen timer in the lower right corner

- HH:MM:SS format
- Black background
- White font
- Font type: AvantGarde BK BT

VB.NET - Sort listview by any column

JFLHV 2017-05-16 | Steps to sort vb.net listview by any column (dates, ints, string or doubles)

Code:
------------------------

Public Class ListViewItemComparer
Implements IComparer

Private col As Integer
Private order As SortOrder

Public Sub New()
col = 0
order = SortOrder.Ascending
End Sub

Public Sub New(column As Integer, order As SortOrder)
col = column
Me.order = order
End Sub

Public Function Compare(x As Object, y As Object) As Integer Implements System.Collections.IComparer.Compare

Dim returnVal As Integer

Try

' Attempt to parse the two objects as DateTime
Dim firstDate As System.DateTime = DateTime.Parse(CType(x, ListViewItem).SubItems(col).Text)
Dim secondDate As System.DateTime = DateTime.Parse(CType(y, ListViewItem).SubItems(col).Text)

' Compare as date
returnVal = DateTime.Compare(firstDate, secondDate)

Catch ex As Exception

' If date parse failed then fall here to determine if objects are numeric
If IsNumeric(CType(x, ListViewItem).SubItems(col).Text) And
IsNumeric(CType(y, ListViewItem).SubItems(col).Text) Then

' Compare as numeric
returnVal = Val(CType(x, ListViewItem).SubItems(col).Text).CompareTo( _
Val(CType(y, ListViewItem).SubItems(col).Text))

Else
' If not numeric then compare as string
returnVal = [String].Compare(CType(x, _
ListViewItem).SubItems(col).Text, CType(y, ListViewItem).SubItems(col).Text)
End If

End Try

' If order is descending then invert value
If order = SortOrder.Descending Then
returnVal *= -1
End If

Return returnVal

End Function

End Class

' Value to track which column was previously sorted
Dim sortColumn as Integer = -1

Private Sub Listview1_ColumnClick(sender As Object, e As System.Windows.Forms.ColumnClickEventArgs) Handles Listview1.ColumnClick

' If current column is not the previously clicked column
' Add
If Not e.Column = sortColumn Then

' Set the sort column to the new column
sortColumn = e.Column

'Default to ascending sort order
Listview1.Sorting = SortOrder.Ascending

Else

'Flip the sort order
If Listview1.Sorting = SortOrder.Ascending Then
Listview1.Sorting = SortOrder.Descending
Else
Listview1.Sorting = SortOrder.Ascending
End If
End If

'Set the ListviewItemSorter property to a new ListviewItemComparer object
Me.Listview1.ListViewItemSorter = New ListViewItemComparer(e.Column, Listview1.Sorting)

' Call the sort method to manually sort
Listview1.Sort()

End Sub
End Class