OK, using the above info Icame up with this sub
Sub mmTopx(mm As Float) As Float
Dim Xdpi,Ydpi As Double
Dim r As Reflector
r.Target = r.GetContext
r.Target = r.RunMethod("getResources")
r.Target = r.RunMethod("getDisplayMetrics")
Xdpi=r.GetField("xdpi")
'Ydpi=r.GetField("ydpi")
Return (mm / 25.4) * Xdpi
End Sub
but it doesn't do as I need, it's still different sizes on different screens and none are the size I hoped for, all smaller.
I worked on the principle that DPI is dots per INCH, so divided my mm number by 25.4 to convert to inches, then multiplied that by the dpi.
Can anybody see where I'm going wrong and how to rectify, thanks