Resimi mousela tutup kaydırmak (UZMAN YARDIMI!)

[Globe]

Ekteki dosyada, aşağıdaki kodla klasördeki resim userform üzerinde görünüyor;

Private Sub UserForm_Initialize()
UserForm1.Picture = LoadPicture(ThisWorkbook.Path & "\TheRACE.gif")
End Sub

Userformda yatay ve dikey scrollbarlar kullanılabilir durumda ve resim fmPictureSizeModeClip olarak gösteriliyor. ScrollBarları kullanarak userform içinde aşağı-yukarı sağa-sola hareket ederek resmin görünmeyen kısımlarını görebiliyoruz.

Ancak benim yapmak istediğim scrollbarla yaptığımız bu işi, mouse ile resmi tutup sürükleyerek/kaydırarak yapmak. Aynı Google Earth'te haritayı mousela tutup kaydırdığımız gibi.

Ayrıca formu eklenen resimin enine uygun olarak otomatik genişletmek ya da daraltmak istiyorum. Formların AutoSize özelliği yok ancak buna benzer bir işlem yapılabilir mi?

Eğer bunları VBA'da yapmak mümkünse yardımlarınızı bekliyorum.

 

[Globe]

Yok mu derdime çare ! Mümkün değilse de uzman bir arkadaşımızın bu konuda beni aydınlatmasını rica ediyorum. Teşekkürler