Hoppla... klappt doch nicht (mehr - unter einer früheren VB- und/oder Windows-Version klappte das mal).
Das Festhalten des Fokus ist wohl doch der sinnvollste Weg:
Private Declare Function GetFocus Lib "user32" () As Long
Private Declare Function SetFocusAPI Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As Long
Private Sub Command1_Click()
Dim nFocus As Long
nFocus = GetFocus()
Form2.Show
SetFocusAPI nFocus
End Sub
Viele Grüße
Harald M. Genauck
ABOUT Visual Basic - das Webmagazin
http://www.aboutvb.de
Antworten
Vorsicht bei der Eingabe: Die Zeichen ' oder -- sind nicht erlaubt!
