picload.bas

来自「《VB6数据库开发指南》所有的例程的源码」· BAS 代码 · 共 14 行

Attribute VB_Name = "basPicLoad"
Option Explicit

Sub Main()
    If MsgBox("Choose a viewing method below:" & _
        vbCr & vbCr & "Yes for the PictureBox method, or" & _
        vbCr & "No for the OLE Container method.", _
        vbYesNo, vbQuestion) = vbYes Then
        Form1.Show vbModal
    Else
        Form2.Show vbModal
    End If
End Sub