[387.xls]



' [mjSumple] のコード
'■■ リストボックスのリストの先頭に表示される項目を設定する ■■
'
'

'フォームを表示します
Sub frmSumple_Show()
    
Dim intCnt As Integer
    
    For intCnt = 1 To 50
        frmSumple.lstTest.AddItem intCnt * 100
    Next intCnt
    
   'フォームの表示
    frmSumple.Show

End Sub



' [frmSumple] のコード

Private Sub CommandButton1_Click()
    frmSumple.lstTest.TopIndex = frmSumple.lstTest.ListIndex
End Sub