En ny startknap?

hej

jeg tror det er noget i denne stil du leder efter. Jeg går ud fra at "lige over start knappen" betyder lige ovenpå!

'---------------------------------------
'KODE START
'---------------------------------------

'konstanter
Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOACTIVATE = &H10
Private Const SWP_SHOWWINDOW = &H40
Private Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE

Private Declare Function SetWindowPos Lib "user32" _
_
  (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 Sub Form_Load()
   
    With Me
        .Caption = "" 'fjerner border
        .BorderStyle = 0 'ingen border
        .Left = 0
        .Top = Screen.Height - .Height
    End With
   
    'sikre dig at din form ligger over task baren
    Call SetWindowPos(Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

End Sub

'---------------------------------------
'KODE SLUT
'---------------------------------------
/hiks

Ja, altså lige over proceslinjen!

.Top = Screen.Height - .Height - 480