'Private Const HWND_BROADCAST = &HFFFF&
'Private Const WM_FONTCHANGE = &H1D
'Private Declare Function AddFontResource Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String) As Long
'Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Sub Command1_Click()
    Label1.Caption = Text1.Text
    Adodc1.Recordset.AddNew "TextColumn", Text1.Text
    Adodc1.Refresh
End Sub

Private Sub Command2_Click()
    If Adodc1.Recordset.RecordCount > 0 Then
        Adodc1.Recordset.Delete
        Call Command5_Click
    Else
        MsgBox "Записей нет"
    End If
End Sub

Private Sub Command3_Click()
    'Label1.Font.Name = "Arial"
    '204 = RUSSIAN_CHARSET (1251)
    Label1.Font.Charset = 204
    Text1.Font.Charset = 204
    Adodc1.Font.Charset = 204
    MSHFlexGrid1.Font.Charset = 204
End Sub

Private Sub Command4_Click()
    'Label1.Font.Name = "BaltHelvetica"
    '186 = BALTIC_CHARSET (1257)
    Label1.Font.Charset = 186
    Text1.Font.Charset = 186
    Adodc1.Font.Charset = 186
    MSHFlexGrid1.CellFontName = "BaltHelvetica"
    MSHFlexGrid1.Font.Charset = 186
End Sub

Private Sub Command5_Click()
    Adodc1.Refresh
    Adodc1.Refresh
End Sub

Private Sub Form_Load()
    'Dim res As Long
    ' add the font
    'res = AddFontResource("C:\Work\BLTHLV.TTF")
    'If res > 0 Then
    ' alert all windows that a font was added
    'SendMessage HWND_BROADCAST, WM_FONTCHANGE, 0, 0
    'MsgBox res & " fonts were added!"
    'End If
    MSHFlexGrid1.ColWidth(2) = 7950
End Sub