B4R Question How to initialize BMP280 (I2C)?

Sub Process_Globals
   Public Serial1 As Serial
   Private bmp As Adafruit_BMP280
        Private ssd As AdafruitSSD1306
         Private d1pins As D1Pins
     Private vx = 3, vy = 3 As Int
     Private px, py As Int
     Private radius As Int = 3
     Private tmr As Timer
     Private p As Double
End Sub

Private Sub AppStart
   Serial1.Initialize(115200)
   Log("AppStart")
       ssd.InitializeI2C(d1pins.D6, 0x3c)
    bmp.Initialize
    If bmp.Initialize Then
    Log("Successful")
    Else
        Log("not")
    End If
    ssd.ClearDisplay
    ssd.Display
    ssd.ClearDisplay
    ssd.GFX.SetCursor(0, 0)
    ssd.GFX.ConfigureText(1, ssd.WHITE, False)
    ssd.GFX.DrawText("Date: ").DrawText(CRLF)
    tmr.Initialize("tmr_Tick", 1000)
    tmr.Enabled = False'True
End Sub
Private Sub tmr_Tick
....