Visual Basic 6 Convert Pixel to Twips and Twips to Pixel

Pada visual basic 6, default satuan ukuran sebuath object menggunakan twips dikarenakan hampir di semua komputer ukuran twips sama. Namun jika ada beberapa object anda yang menggunakan satuan pixel, maka berikut ini cara untuk mengkonvert from pixel to twips maupun from twips to pixel

Private Function PixelsToTwips(pixels As Integer)
PixelsToTwips = pixels * Screen.TwipsPerPixelX
End Function

Private Function TwipsToPixels(twips As Integer)
TwipsToPixels = twips / Screen.TwipsPerPixelX
End Function

Semoga bermanfaat..