# VBCCR
VB Common Controls Replacement Library (Replacement of the MS common controls)

This project is intended to replace the MS common controls for VB6.

http://www.vbforums.com/showthread.p...mmon-controls)

Code:
TextBoxHandle = CreateWindowEx(dwExStyle, StrPtr("Edit"), 0, dwStyle, 0, 0, UserControl.ScaleWidth, UserControl.ScaleHeight, UserControl.hWnd, 0, App.hInstance, ByVal 0&)


T1 = ReadUniFile(App.Path & "\text file\unicodefile1.txt")
TextBoxW1.Text = T1

 Function ReadUniFile(ByVal sFile As String) As String
    Dim a As Long
    a = FileLen(sFile)
    ReDim buff(a - 1) As Byte
    ReDim buff1(a - 3) As Byte
    Open sFile For Binary As #1
    Get #1, , buff
    Close #1
    CopyMemory buff1(0), buff(2), a - 2
    ReadUniFile = buff1
End Function