Code: Alles auswählen
Private Sub Command1_Click()
Dim xptext As String
Dim num1 As Integer, num2 As Integer, num3 As Integer, num4 As Integer
num1% = 0
num2% = 100
num3% = 0
num4% = 100
1: xptext$ = xptext$ & "Zitat:
"
num1% = num1% + 1
If num1% = num2% Then GoTo 2 Else GoTo 1
2: xptext$ = xptext$ & "
"
num3% = num3% + 1
If num3% = num4% Then GoTo 3 Else GoTo 2
3: Clipboard.Clear
Clipboard.SetText xptext$
End Sub
Weiß von euch jemand rat?
Gruß
X-Box