ich habe folgendes Makr, womit die UF nicht versetzt werden konnte.
Bei meiner alten Version funktioniert nur jetzt aktuell nicht, WAS kann das sein?
<pre>
Private Sub UserForm_Initialize()
Dim UFEingang
'--------------- für Bildschirmanpassung --------------------------------------
Dim hwndForm As Long, hwndMenu As Long
Dim intY, intLast, intNext As Integer
'------------------------------------------------------------------------------
On Error Resume Next
With UFEingang
StartUpPosition = 0
Top = 0
Left = 0
Height = GetDeviceCaps(GetDC(0&), 8)
Width = GetDeviceCaps(GetDC(0&), 10)
End With
ReleaseDC 0, GetDC(0&)
hwndForm = FindWindow(vbNullString, Me.Caption)
'-------- ab hier festgelegt, UF kann nicht verschoben werden --------------
If hwndForm <> 0 Then
hwndMenu = GetSystemMenu(hwndForm, 0)
If hwndMenu <> 0 Then DeleteMenu hwndMenu, &HF010, &H0
End If
'---------------------------------------------------------------------------
End Sub</pre>
Gruß Walter