Find all our projects in development below.
All source code is GNU General Public License (GPL)
Browsing About.frm (4.03 KB)
VERSION 5.00
Begin VB.Form About
BorderStyle = 3 'Fixed Dialog
Caption = "About MindPower Tic Tac Toe..."
ClientHeight = 2310
ClientLeft = 45
ClientTop = 330
ClientWidth = 3285
ClipControls = 0 'False
Icon = "About.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2310
ScaleWidth = 3285
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.CommandButton Command2
Caption = "OK"
Default = -1 'True
Height = 375
Left = 2280
TabIndex = 0
Top = 1800
Width = 855
End
Begin VB.CommandButton Command1
Caption = "&Credits..."
Height = 375
Left = 1080
TabIndex = 1
ToolTipText = "MindPower Tic Tac Toe Credits..."
Top = 1800
Width = 1095
End
Begin VB.Label Label5
Caption = "http://mindpower.tytek.net/"
Height = 255
Left = 1080
MouseIcon = "About.frx":000C
MousePointer = 99 'Custom
TabIndex = 7
ToolTipText = "Visit The MindPower Website..."
Top = 1440
Width = 2055
End
Begin VB.Label Label6
Caption = "MindPower Website:"
Height = 255
Left = 1080
TabIndex = 6
Top = 1200
Width = 1575
End
Begin VB.Line Line1
BorderWidth = 2
X1 = 1080
X2 = 3120
Y1 = 1080
Y2 = 1080
End
Begin VB.Label Label4
Caption = "� 1999 MindPower Software"
Height = 255
Left = 1080
TabIndex = 5
Top = 720
Width = 2055
End
Begin VB.Label Label3
Caption = "Windows 95/98/NT"
Height = 255
Left = 1080
TabIndex = 4
Top = 480
Width = 1455
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "Version:"
Height = 195
Left = 1080
TabIndex = 3
Top = 240
Width = 570
End
Begin VB.Label Label1
Caption = "MindPower Tic Tac Toe"
Height = 255
Left = 1080
TabIndex = 2
Top = 0
Width = 1815
End
End
Attribute VB_Name = "About"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Unload Me
Credits.Show 1
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
Picture = TicTacToeForm.Icon
AppRev = "." + Mid(Str(App.Revision), 2)
If AppRev = ".0" Then AppRev = ""
Label2.Caption = "Version: " & App.Major & "." & App.Minor & AppRev
End Sub
Private Sub Label5_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button <> 1 Then Exit Sub
Label5.ForeColor = vbBlue
End Sub
Private Sub Label5_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label5.ForeColor = vbBlack
If Button <> 1 Then Exit Sub
On Error GoTo NoF
a$ = "C:\Program Files\Internet Explorer\Iexplore.exe"
L = FileLen(a$)
M = MsgBox("Connect to the MindPower Software Website?", vbOKCancel + vbQuestion, "Connect?")
If M = 2 Then Exit Sub
W = Shell(a$ & " http://mindpower.tytek.net/", 1)
Exit Sub
NoF:
M = MsgBox("Internet Explorer Browser Not Found!", vbOKOnly + vbExclamation, "Error")
End Sub