vbAccelerator - Contents of code file: frmTest32BitIcon.frm
VERSION 5.00
Begin VB.Form frmTest32BitIcon
Caption = "vbAccelerator: 32 Bit Alpha Form Icon Demonstration"
ClientHeight = 5115
ClientLeft = 2790
ClientTop = 3405
ClientWidth = 6585
LinkTopic = "Form1"
ScaleHeight = 5115
ScaleWidth = 6585
Begin VB.Label lblInfo
Caption = $"frmTest32BitIcon.frx":0000
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1215
Index = 1
Left = 300
TabIndex = 1
Top = 1440
Width = 5835
End
Begin VB.Label lblInfo
Caption = $"frmTest32BitIcon.frx":0090
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1215
Index = 0
Left = 360
TabIndex = 0
Top = 180
Width = 5835
End
End
Attribute VB_Name = "frmTest32BitIcon"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Form_Load()
SetIcon Me.hWnd, "AAA"
End Sub
|
|