Private Sub Command2_Click()
Picture1.Picture = LoadPicture
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
CommonDialog1.Filter = "pictures(*.bmp,*.jpg,*.gif)"
End Sub
Private Sub Command1_Click()
CommonDialog1.ShowOpen
Set Picture1.Picture = LoadPicture(CommonDialog1.FileName)
End Sub