Computer skrift?

Jeg ville tro det er noget i keydown-eventen, men jeg er ikke sikker på, at jeg har forstået spm\'et ordentligt

Altså at skriften kører hen over skærmen... Ligesom en \"Marquee\" i html!
Så jeg kan smide lidt copyright i den

du tilføjer en timer til din form og sætter dens interval til feks. 500 (millisekunder)

I timer eventen skriver du så:

text1.text=mid(text1.text,2) & mid(text1,text,1,1)

;)

Jeg er TOTALT nybegynder, så kunne du ikke komme med et .... lettere svar hehe
ej forklare hvordan præcist

på en hel frisk form tilføjer du en tekstbox.

Skriv din copyright besked i textboksen.

Til føj en timer control til formen (det er den der ligner et stopur)

sæt dens interval til f.eks. 500

Dobbeltklik på timeren

Nu kommer du ind i et kodevindue...

her skriver du
Private Sub Timer1_Timer()
  text1.text=mid(text1.text,2) & mid(text1.text,1,1)
End Sub

Kør programmet :)

Jeg har også en her, din Form skal bestå af to text-felter en timer og en command-knap

Koderne er som følger:

Option Explicit
Dim run As Boolean
Dim i As Integer
Private Sub Command1_Click()

If run = False Then
    Timer1.Enabled = True
    Text1.Visible = False
    Text2.Visible = True
    Text2.Text = \"\"
    i = 1
    Command1.Caption = \"&Stop\"
    run = True
Else
    Timer1.Enabled = False
    Text1.Visible = True
    Text2.Visible = False
    Command1.Caption = \"&Kør\"
    run = False
End If
End Sub

Private Sub Form_Load()

run = False
Timer1.Enabled = False
Text2.Visible = False

End Sub

Private Sub Timer1_Timer()

If i <= Len(Text1.Text) Then
    Text2.Text = Text2.Text & Mid(Text1.Text, i, 1)
    i = i + 1
Else
    i = 1
    Text2.Text = \"\"
End If
End Sub

Var det måske en mulighed?? :-)

P.S. Husk lige at timeren stadig skal have et interval, f.eks 100!!!