Tớ thử cho vào 1 module đoạn mã này. Rồi cho
Dim ii As ImgDimType
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ii = getImgDim("C:\6.bmp", "bmp")...