95 Style Status Bar for Windows 3.11
Listing 5 looks like this...
Option Explicit Public Const sbrText = 0 ' (Default) Public Const sbrCaps = 1 ' Caps Lock key Public Const sbrNum = 2 ' Number Lock Public Const sbrIns = 3 ' Insert key Public Const sbrScrl = 4 ' Scroll Lock key Public Const sbrTime = 5 ' Time Public Const sbrDate = 6 ' Date Public Const sbrNoBevel = 0 ' None Public Const sbrInset = 1 ' (Default) Inset Public Const sbrRaised = 2 ' Raised Public Const sbrLeft = 0 ' (Default) Public Const sbrCenter = 1 Public Const sbrRight = 2 Public Const sbrNoAutoSize = 0 ' (Default) None Public Const sbrSpring = 1 ' Spring Public Const sbrContents = 2 ' Content Public Const sbrNormal = 0 ' (Default) Normal Public Const sbrSimple = 1 ' Simple Public Const gGap = 30 Public Sub main() ' does nothing, but is required as a starting point for the eventual EXE. End Sub
