Sub Command1_Click ()
    Unload AboutDlg
End Sub

Sub Form_Load ()

    Remove_Items_From_SysMenu AboutDlg

    Initialize

    Height = Command1.top + (Command1.Height * 1.5) + (Height - ScaleHeight)

    CenterDialog AboutDlg

End Sub


Sub Initialize ()

    Dim NewLeft     As Integer
    Dim NewTop      As Integer
    Dim Counter     As Integer
    Dim MaxWidth    As Integer

    Static Text$(0 To 5)
    Static Size(0 To 5) As Integer

    Text$(0) = "Communication Demo"
    Text$(1) = "written in"
    Text$(2) = "Microsoft Visual Basic Programming System"
    Text$(3) = "Version 1.00"
    Text$(4) = "for"
    Text$(5) = "Microsoft Windows 3.00"

    Size(0) = 24
    Size(1) = 12
    Size(2) = 12
    Size(3) = 12
    Size(4) = 12
    Size(5) = 12

    CurrentY = Command1.Height / 2
    MaxWidth = TextWidth(Caption)

    For Counter = 0 To 5
        FontSize = Size(Counter)
       
        WorkWidth = TextWidth(Text$(Counter))
        If WorkWidth > MaxWidth Then MaxWidth = WorkWidth

        CurrentX = (ScaleWidth - WorkWidth) / 2
       
        Print Text$(Counter);
        CurrentY = CurrentY + TextHeight(Text$(Counter))
    Next Counter

    Line ((ScaleWidth - MaxWidth) / 2, CurrentY)-(((ScaleWidth - MaxWidth) / 2) + MaxWidth, CurrentY + 30), QBColor(0), BF
   
    width = MaxWidth + Command1.width

    NewLeft = (ScaleWidth - Command1.width) / 2
    NewTop = CurrentY + Command1.Height

    Command1.Move NewLeft, NewTop

End Sub

Sub Form_Paint ()
   
    Initialize
    UpdateCaption " DIALOG: " + Caption, 0

End Sub