notepad1-f3.bas

一个用VB实现的简单的记事本程序

Attribute VB_Name = "Module1"
Global Pos As Integer
Global MatchCase As Boolean
Global SearchStr As String
Global PassWord As String

Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hwndInsertAfter As Long, _
ByVal x As Long, ByVal y As Long, ByVal CX As Long, ByVal CY As Long, ByVal wflags As Long) As Long