Private Sub panel_Touch (Action As Int, X As Float, Y As Float)
Dim DPI As Float = 160dip
Dim Xinches As Float = X / DPI
Dim Yinches As Float = Y / DPI
Dim Xcentimetres As Float = Xinches * 2.54
Dim Ycentimetres As Float = Yinches * 2.54
Log("x, y = " & X & ", " & Y)
Log("x, y = " & NumberFormat2(Xinches, 1, 2, 2, False) & """, " & NumberFormat2(Yinches, 1, 2, 2, False) & """")
Log("x, y = " & NumberFormat2(Xcentimetres, 1, 1, 1, False) & " cm, " & NumberFormat2(Ycentimetres, 1, 1, 1, False) & " cm")
End Sub