Private Declare Function SetWindowPos Lib "user32.dll" (ByVal hwnd As Long, _
  ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As _
  Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal _
lpClassName As String, ByVal lpWindowName As String) As Long
 
Private Sub SetCalcToTopMost()
 
    Dim lCalcHandle As Long
    lCalcHandle = FindWindow(vbNullString, "Rechner")
    If lCalcHandle <> 0 Then
        SetWindowPos lCalcHandle, -1, 0, 0, 0, 0, 1 Or 2
    End If
 
End Sub

Ohne Mampf, kein Kampf !