I Coded Windows 95 in PowerPoint. (pt.1)

Join the discord server: https://discord.gg/nwH5Mdu Introducing PowerPoint Windows 95, a functional emulation of Windows 95 in, well… PowerPoint. This is how I used PowerPoint to recreate one of the most classic retro Operating systems in the nineties, but revamped for modern times. Windows 95 is the intellectual property of Microsoft. Check out zeqOS Culebra via Zulo’s channel: https://www.youtube.com/channel/UCtFH_XmnkvJUtPf7wkQGhjQ Take a look at Project Arcturus: { Website: https://flopadinc.weebly.com/ } Dongvan’s channel: { https://www.youtube.com/channel/UCmDFa6gzTnavkHPJeqIHtdw } Sources: { How-to-geek article: https://www.howtogeek.com/329301/how-to-install-windows-95-in-a-virtual-machine/ Windows 95 tour: youtube.com/watch?v=ujDe3XCTNFI&t=15s } -----Code:----- To get the cursor position, create a new module in the VBE (instert, module) and paste this code: Declare Function GetCursorPos lib "user32" (lpPoint As POINTAPI) As Long Type Cursor left as long top as long End Type To apply the code to a shape, add an image control as a dragging handle. Double-click it and create and create a variable called "dragstate" as a boolean, plus offset variables: Dim Xoff, Yoff as long Dim dragstate as boolean Then, go to the top-right hand corner and select "mousedown" Type this code in that subroutine: dragstate = true xoff = x yoff = y Then, select "mousemove" and paste this code: if dragstate = true then With Slide*the slide the shape is on*.Shapes("*name of the shape you want to move*") dim mouse as cursor getcursorpos mouse .top = mouse.top / 2 - xoff .left = mouse.left / 2 - yoff End With End if Finally, select "mouseup" and type: dragstate = false ActivePresentation.SlidesShowWindows.View.GotoSlide ActivePresentation.SlidesShowWindow.View.CurrentShowPosition --/code-- Timestamps: 00:00 - Creating the Setup 00:44 - Creating the Concept Build 01:39 - Window dragging test 02:38 - Window dragging implementation 03:13 - Start Menu 03:46 - Solving the ActiveX Control problem 04:34 - Taskbar System 04:44 - Refining the interface (1) 05:10 - Window Resizing 05:36 - Refining the interface (2) 06:04 - Window Resizing implementation 08:01 - Start Menu finalisation 09:36 - Individual Window Functionality 10:24 - Minimising and Maximising 11:10 - Command Prompt 11:39 - File system 12:33 - Commands 14:05 - Review & Evaluate (1): Looking Back 15:42 - Review & Evaluate (2): Planned Features 16:46 - Outro Tags { PowerPoint OS PPT OS Windows 95 In PowerPoint