CLİPBOARD ÖZELLİĞİ İLE KOPYALAMA İŞLEMİ YAPAN PROGRAM

 Private Sub Command1_Click()

Clipboard.Clear

Clipboard.SetData Picture1.Picture, 2

End Sub

Private Sub Command2_Click()

If Command2.Caption = "Kopyala" Then

Clipboard.Clear

Clipboard.SetText Text1.Text, vbCFText

Command2.Caption = "Yapıştır"

Exit Sub

End If

If Command2.Caption = "Yapıştır" Then

Text2.Text = Clipboard.GetText

comman2.Caption = "Kopyala"

Exit Sub

End If

End Sub

Private Sub Picture2_Click()

If Clipboard.GetData(1) = True Then

frmt = 1

Picture2.CurrentX = 50

Picture2.CurrentY = 50

Picture2.Print Clipboard.GetText

Exit Sub

ElseIf Clipboard.GetFormat(2) = True Then

frmt = 2

ElseIf Clipboard.GetFormat(3) = True Then

frmt = 3

ElseIf Clipboard.GetFormat(8) = True Then

frmt = 8

ElseIf Clipboard.GetFormat(9) = True Then

frmt = 9

ElseIf Clipboard.GetFormat(14) = True Then

frmt = 14

ElseIf Clipboard.GetFormat(15) = True Then

frmt = 15

ElseIf Clipboard.GetFormat(-16639) = True Then

frmt = -16639

ElseIf Clipboard.GetFormat(-16640) = True Then

frmt = -16640

End If

Picture2.Picture = Clipboard.GetData(frmt)

End Sub