Visual Basic

Dim newFrmNewProject As New frmNewProject
formLibrary.frmOpenProject.Hide()
newFrmNewProject.ShowDialog()

Public Class formLibrary<br />
    Public Shared frmOpenProject As New Form<br />
    Public Shared frmMain As Form<br />
    Public Shared frmScoringJustification As New Form<br />
    Public Shared frmProjectName As New Form<br />
    Public Shared frmDatesAndLocation As New Form<br />
    Public Shared frmPOC As New Form<br />
    Public Shared frmArticulation As New Form<br />
    Public Shared frmCollectorsAndNotes As New Form<br />
    Public Shared frmComponents As New Form<br />
    Public Shared frmPrint As New Form<br />
    Public Shared frmNewProject As New Form<br />
End Class

Dim newFrmMain As New frmMain  <br />
formLibrary.frmNewProject.Hide()  <br />
newFrmMain.ShowDialog()

Dim newFrmNewProject As New frmNewProject  formLibrary.frmOpenProject.Hide()  <br />
newFrmNewProject.ShowDialog()

<br />
Dim newFrmNewProject As New frmNewProject<br />
formLibrary.frmOpenProject.Hide()  <br />
newFrmNewProject.ShowDialog()

'Dim newFrmNewProject As New frmNewProject  formLibrary.frmNewProject.ShowDialog()<br />
'newFrmNewProject.ShowDialog()

<br />
<br />
Private Sub ddlStat_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ddlStat.SelectedIndexChanged<br />
<br />
ddlstat.items.clear<br />
dim i as integer<br />
<br />
For i = 0 To (DataSet11.Tables("status").Rows.Count - 1)<br />
ddlstat.items.add(DataSet11.Tables("employee").Rows(i).Item("Status_Name")) 'status_name = column name in table<br />
next<br />
<br />
end sub<br />

<br />
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged<br />
<br />
Label1.Text = "You Clicked On row " & (ComboBox1.SelectedIndex + 1).ToString<br />
<br />
    End Sub