PC Professionell 1998 December/PCpro_1998_12.ISO/PCP_Tool/autoww.exe/MODULE1.BAS

BASIC Source File | 1997-09-30 | 787 b | 28 lines

Attribute VB_Name = "Module1"
Public Function ztrim(s As String) As String
Dim i As Long
    i = InStr(s, Chr$(0))
    If i = 0 Then
        ztrim = s
    Else
        ztrim = Left$(s, i - 1)
    End If
End Function



Sub centerform(f As Form)
    f.Left = (Screen.Width - f.Width) \ 2
    f.Top = (Screen.Height - f.Height) \ 2
End Sub

Sub ResizeForm(f As Form, hproz As Single, vproz As Single)
    f.Width = Screen.Width * hproz / 100
    f.Height = Screen.Height * vproz / 100
End Sub

Sub ww_info(t As String, s As String)
    MsgBox s + vbCr + vbCr + "⌐ 1996, 1997 by Wolfgang Wirth" + vbCr + vbCr + "'VerbesserungsvorschlΣge und konstruktive" + vbCr + "Kritik sind mir immer willkommen!'" + vbCr + vbCr + "E-Mail: [e-mail]", 64, t
End Sub