フォームをランダムに呼び出すには？ (ID:111283)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 なんでもアリと思いますが、一例です。 Private Sub cmdCommand_Click() Call subSample 以下略 Public Sub subSample() Dim frmSample As Form Select Case Int(Rnd(1)*5)+1 Case 1 Set frmSample = New Form1 Case 2 Set frmSample = New Form2 略 End Select frmSample.Show vbModal 略 frmSample = Nothing Exit Sub