强推时间小于当前时间

VERSION 5.00

Begin VB.Form Form1 

   Caption         =   ""

   ClientHeight    =   3030

   ClientLeft      =   225

   ClientTop       =   855

   ClientWidth     =   4560

   LinkTopic       =   "Form1"

   ScaleHeight     =   3030

   ScaleWidth      =   4560

   StartUpPosition =   3  '窗口缺省

   Begin VB.OptionButton Opt2 

      Caption         =   "右对齐"

      Height          =   495

      Left            =   2520

      TabIndex        =   2

      Top             =   480

      Width           =   1215

   End

   Begin VB.OptionButton Opt1 

      Caption         =   "左对齐"

      Height          =   495

      Left            =   960

      TabIndex        =   1

      Top             =   480

      Value           =   -1  'True

      Width           =   1215

   End

   Begin VB.Label Lab 

      BorderStyle     =   1  'Fixed Single

      Caption         =   "这是一串文字"

      Height          =   495

      Left            =   960

      TabIndex        =   0

      Top             =   1440

      Width           =   2775

   End

   Begin VB.Menu mDo 

      Caption         =   "操作"

      Begin VB.Menu mLine 

         Caption         =   "下划线"

      End

   End

End

Attribute VB_Name = "Form1"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Private Sub mLine_Click()

    If Lab.FontUnderline = True Then

        Lab.FontUnderline = False

    Else

        Lab.FontUnderline = True

    End If

End Sub

Private Sub Opt1_Click()

    Lab.Alignment = 0

End Sub

Private Sub Opt2_Click()

    Lab.Alignment = 1

End Sub