Menampilkan Gambar dengan Command Button Pada Visual Basic 6.0

Buat sobat yg pengen tau gimana caranya buat file gambar di vb 6.0 dibawah ini cara nya
Sebelumnya kita akan menggunakan tool picturebox dan commandbutton

Buatlah form seperti gambar di bawah ini

Kemudian double klik commandbutton lalu tuliskan sintak di bawah ini

Private sub Command_click()
Me.Picture1.Picture = LoadPicture ("Object name ")
End sub

ket :
-Private Sub Command1_Click() = event Command Button saat di klik
- End Sub = akhir dari event
- Me.Picture1.Picture = LoadPicture("C:\Users\Ismy\Pictures\mnl.jpg")

Me di sini adalah sintak untuk memanggil Form. Tidak berlaku untuk Form lain, ini berguna untuk mempermudah jika kita lupa penulisan Name Component. Disini saya memakai file yg berada di drive C dan saya memasukan itu melalui syntak visual basic. Jika anda bingung untuk mencari object name nya :
-klik kanan gambar nya 
-pilih propertis 
-pilih tab security , di atas sendiri ada tulisan object name trus di copy aja.

Sekarang untuk menyesuaikan ukuran picturebox dengan gambar, di bagian properties picturebox 
Autosize menjadi true 
Dengan demikian secara otomatis picturebox akan menyeseuaikan ukuran gambar . kalo mau tau hasilnya tinggal click aja commandbutton nya klo yg di form saya commandbutton nya di ganti caption nya jadi Load Picture.

ini hasil nya 

 Sobat juga bisa pake tool image cuma di ganti sintak nya jadi :
Me.image1.picture = LoadPicture ("Object name")
trus kalo mau menyesuaikan ukuran gambar sobat tinggal ganti strech nya jadi true
hasilnya juga sama aja 

sumber:http://ismy-amnes.blogspot.com/2012/10/file-gambar-pada-vb-60.html