Skip to content

Instantly share code, notes, and snippets.

@andy0130tw

andy0130tw/gist:6751422

Created September 29, 2013 10:50
Show Gist options
  • Save andy0130tw/6751422 to your computer and use it in GitHub Desktop.
Save andy0130tw/6751422 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.vb
'Pixel & Twip 的換算
Public Function pixelToTwip(ByVal pixel As Long) As Long
pixelToTwip = Screen.TwipsPerPixelX * pixel
End Function
'LoadMovie
Public Function loadMovie(moviePath As String)
ShockwaveFlash1.Movie = moviePath
End Function
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment