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..

Contoh Desain Form

Melihat para mahasiswa berkreasi dengan visual basic, banyak banget kreasi dan desain form yang mereka buat, mulai dari yang minimalis hanya menggunakan warna dan shape standard, ada juga yang memakai berbagai macam ocx sehingga tampilan program yang dibuat makin ciamik, ada juga yang bikin gambar sendiri lalu di masukkan dalam visual basic 6.
Gak mau ketinggalan ikut buat ah … ini neh hasilnya

dengan program photoshop q buat desain formnya lalu kopas alias copy paste ke form visual basic, ditambah sedikit animasi menggunakan timer dan efek fade, yach lumayan deh…
filenya bisa di donwload di sini