VERSION 5.00
Begin VB.Form Form1 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Form1"
   ClientHeight    =   2715
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   2475
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2715
   ScaleWidth      =   2475
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   Begin VB.TextBox Text1 
      Height          =   330
      Left            =   90
      TabIndex        =   3
      Text            =   "歡迎訪問紫水晶工作室"
      Top             =   45
      Width           =   2265
   End
   Begin VB.CommandButton Command3 
      Caption         =   "GetLen"
      Height          =   690
      Left            =   90
      TabIndex        =   2
      Top             =   450
      Width           =   2265
   End
   Begin VB.CommandButton Command2 
      Caption         =   "SetFlat"
      Height          =   690
      Left            =   90
      TabIndex        =   1
      Top             =   1890
      Width           =   2265
   End
   Begin VB.CommandButton Command1 
      Caption         =   "ShowDLLMsg"
      Height          =   690
      Left            =   90
      TabIndex        =   0
      Top             =   1170
      Width           =   2265
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

'此處的聲明一定要與DLL內一致

Private Declare Function ShowMsg Lib "my1stdll.dll" ()
Private Declare Function aa Lib "my1stdll.dll" (ByVal sHwnd As Long)
Private Declare Function SetLen Lib "my1stdll.dll" (ByVal str As String, ByRef kk As Long)


Private Sub Command1_Click()            '彈出DLL內的對話框

ShowMsg

End Sub

Private Sub Command2_Click()            '調用DLL內過程,把指定HWND的按鈕樣式設置為平面.

MsgBox "設置按鈕 " & Chr(34) & "ShowDLLMsg" & Chr(34) & " 為平面樣式"

aa Command1.hWnd

Command1.Refresh

End Sub

Private Sub Command3_Click()            '調用DLL內過程,返回指定字符串的長度

Dim A As Long

SetLen Text1.Text, A

MsgBox "Str: " & Text1.Text & vbCrLf & vbCrLf & "Len: " & A

End Sub