Public Const SIZE_OF_IMAGE = 98304  

 
  Private Sub CommandTI_Click()   'event handler for TI Logo click  
      Dim buffer(SIZE_OF_IMAGE) As Byte  
      Dim varbuffer As Variant  
      Dim filename As String  
      Dim path As String  
       
      path = App.path 'set path to point to image file path (same as application path)  
      filename = "TILOGO.bmp" 'set filename to TI logo image file  
      varbuffer = buffer 'init image storage  
      Show_Image path, filename, varbuffer  'load and display image  
   

 
   
  Dim buffer(SIZE_OF_IMAGE) As Byte  

  
  varbuffer = buffer 'init image storage