plz sum changed this code into vb.net 'For intellisense Public Enum AppBarPos abpLeft = 0& abpTop = 1& abpRight = 2& abpBottom = 3& End Enum 'A rect(angle) Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type 'AppBarData struct Private Type APPBARDATA cbSize As Long hwnd As Long uCallbackMessage As Long uEdge As Long rc As RECT lParam As Long ' message specific End Type 'This function makes it happen.
