Code: Select all
Private Sub LOAD_IMG(IMMAGINE)
Set Picture1.Picture = NewLoadPicture("C:\Lavori_Vb6\BANDIERE\FLAG\country-flags-main\png1000px\" & IMMAGINE)
Picture1.ScaleMode = 3
Picture1.AutoRedraw = True
Picture1.PaintPicture Picture1.Picture, _
0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, _
0, 0, Picture1.Picture.Width / 26.46, _
Picture1.Picture.Height / 26.46
Picture1.Picture = Picture1.Image
End Sub
Call LOAD_IMG(IMMAGINE)
how to pass in LOAD_IMG, also the picture as parameter, similar:
Call LOAD_IMG(IMMAGINE, here the second parameter)