| Private Sub Command1_Click()
Clipboard.Clear
Clipboard.SetData Picture1.Picture
End Sub
Private Sub Command2_Click()
Picture1.Picture = Clipboard.GetData
End Sub
Private Sub Command3_Click()
SavePicture Picture1.Picture, InputBox("Dosya Adı")
End Sub
Private Sub Dir1_Change()
F
Devamını Görmek İçin Üye Girişi Yapmanız Gerekmektedir. |