problemer med case

Jeg kan gøre det endnu kortere...



Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyReturn
MsgBox (Text1.Text)
End Select
End Sub

DETTE ER DET KORTESTE!!!

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then MsgBox Text1.Text
End Sub

hej, please hjælp mig med fælgende:
når jeg trykker en kommando ind og trykker [Enter] så skal den sige hvad jeg skrev i en msgbox, hvad skal jeg gøre?
/ETA

Mener du:

private sub command1_click()

Dim indtast as string

indtast = text1.text

msgbox indtast

end sub

Hvis den skal reagere på [enter] skal du tilføje følgende....

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyReturn
Command1_Click
'Kan også være kommando som ovenstående.....
End Select
End Sub


Håber dette hjælper!

Mvh

Christian

NEJ...DET KUNNE JEG IKKE...