jackyq

­ì¥» Height ªº³]©w¦b ListStyle = fmListStyleOption   ¤§«á      
        .ListBox1.ListStyle = fmListStyleOption         
        .ListBox1.MultiSelect = LB_MultiSelect_Lng
        .ListBox1.List = LB_List_AR_Str
......
        .ListBox1.Height = LB_Height_Sng
        .ListBox1.Width = LB_Width_Sng

§â¥L§ï¦¨ ¦b ListStyle = fmListStyleOption   ¤§«e      
Åܦ¨
        .ListBox1.Height = LB_Height_Sng
        .ListBox1.Width = LB_Width_Sng

        .ListBox1.ListStyle = fmListStyleOption         
        .ListBox1.MultiSelect = LB_MultiSelect_Lng
        .ListBox1.List = LB_List_AR_Str

µM«á®³±¼ Doevents
¬O§_ok?

jackyq

(1)
listbox ·|¦Û°ÊÁY©ñ height
Private Sub CommandButton1_Click()
  ListBox1.ListStyle = fmListStylePlain
  ListBox1.ListStyle = fmListStyleOption
End Sub

(2)
listbox ¦³·å²«
³s«ö«Ü¦h¦¸ CommandButton1 «á, §A·|¬Ý¨ì·å²«
·å²«¥X²{«á, ²¾°Ê¤@¤U Form
Private Sub CommandButton1_Click()
  h = ListBox1.Height
  ListBox1.ListStyle = fmListStylePlain
  ListBox1.ListStyle = fmListStyleOption
  ListBox1.Height = h
End Sub