VB工程---实例72--下拉式菜单

Option Explicit
Private Sub Form_Load()
        With lbl1
        .Visible = False      '没有注意到前面的"."  犯错了  以后记住
        .Left = (pic1.ScaleWidth - lbl1.Width) / 2   标签框在图片框中水平居中
        .Top = (pic1.ScaleHeight - lbl1.Height) / 2 标签框在图片框中垂直居中
        End With  
End Sub

Private Sub mntext_Click()
        lbl1.Visible = True
        pic1.Picture = LoadPicture()
End Sub

Private Sub mnupicture_Click()
        pic1.Visible = True
        lbl1.Visible = False
        pic1.Picture = LoadPicture("F:\我的图片\风景图片\Tulips.jpg")
        '相片路径不会输入，只用粘贴复制即可
End Sub

Private Sub mnupt_Click()
        lbl1.Visible = True
        pic1.Picture = LoadPicture("F:\我的图片\风景图片\Tulips.jpg")  '加载图片
End Sub

Private Sub mnuquit_Click()
        End
End Sub