I2C_Send_Command(0xAE);//DISPLAYOFF
I2C_Send_Command(0xD5);//DISPLAYCLOCKDIV
I2C_Send_Command(0x80);//the suggested ratio &H80
I2C_Send_Command(0xA8);//MULTIPLEX
if(Option.DISPLAY_TYPE==SSD1306I2C)I2C_Send_Command(0x3F);
else if(Option.DISPLAY_TYPE==SSD1306I2C32)I2C_Send_Command(0x1F);
I2C_Send_Command(0xD3);//DISPLAYOFFSET
I2C_Send_Command(0x0);//no offset
I2C_Send_Command(0x40);//STARTLINE
I2C_Send_Command(0x8D);//CHARGEPUMP
I2C_Send_Command(0x14);
I2C_Send_Command(0x20);//MEMORYMODE
I2C_Send_Command(0x00);//&H0 act like ks0108
I2C_Send_Command(0xA1);//SEGREMAP OR 1
I2C_Send_Command(0xC8);//COMSCANDEC
I2C_Send_Command(0xDA);//COMPINS
if(Option.DISPLAY_TYPE==SSD1306I2C)I2C_Send_Command(0x12);
else if(Option.DISPLAY_TYPE==SSD1306I2C32)I2C_Send_Command(0x02);
I2C_Send_Command(0x81);//SETCONTRAST
I2C_Send_Command(0xCF);
I2C_Send_Command(0xd9);//SETPRECHARGE
I2C_Send_Command(0xF1);
I2C_Send_Command(0xDB);//VCOMDETECT
I2C_Send_Command(0x40);
I2C_Send_Command(0xA4);//DISPLAYALLON_RESUME
I2C_Send_Command(0xA6);//NORMALDISPLAY
I2C_Send_Command(0xAF);//DISPLAYON

option list
OPTION LCDPANEL SSD1306I2C32##, LANDSCAPE
>

I have used OPTION LCDPANEL N5110, L,11,10,9
So my interconnections are

Connection L4 5110 MMBASIC
SPI_CLK (D13) 7 PIN 26
SPI_OUT (D11) 6 PIN 28
DC (A4) 5 PIN 11
RST (A3) 4 PIN 10
CE (A2) 3 PIN 9
GND GND 2
+3V3 3V3 1

Here is the CODE

' Program to test Nokia 5110 LCD on ARMmite L4
' Option LCDPanel N5110,L,11,10,9 set on command line
SetPin 6,AIN
Dim T$, D$, I, Tmp,V
CLS
Box 0,0,83,48

Do
T$=Time$

If T$ <> Time$ Then

D$=Date$
V= 12.6 'Pin(6)/11.1 'resistor divider between Vin and GND
Tmp=25.4 'TEMPR(22)
Text 10,1,T$
Text 2,12,D$
Text 3,23,"Temp"
Text 36,23,Str$(Tmp)
Text 70,23,"C"
Text 3,34,"Volt"
Text 41,34,Str$(V)
Text 72,34,"V"
End If
Loop

I2C OPEN 400,1000

' File L4TEST.V10
' Program to test Nokia 5110 LCD on ARMmite L4
' Option LCDPanel N5110,L,11,10,9 set on command line
SetPin 13,AIN 'Voltage reading of Vin
SetPin 29,DOUT 'Supply 3V3 to DS18B20
Pin(29)=1
Dim T$, D$, I, Tmp, V
CLS
Box 0,0,83,48

Do
If T$ <> Time$ Then
T$=Time$
D$=Date$
V= Pin(13)*11.0 'resistor divider 100K/10K between Vin and GND
Tmp=TEMPR(22)
Text 10,1,T$
Text 2,12,D$
Text 3,23,"Temp"
Text 37,23,Str$(Tmp)
Text 70,23,"C"
Text 3,34,"Volt"
If V > 10.0 Then
Text 41,34,Str$(V,2,1)
Else
Text 41,34,Str$(V,1,2)
End If
Text 72,34,"V"
End If
Loop